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Your PC can now be a “Personal 
Minicomputer’’ with the Revelation 
Operating System from Cosmos. 

Revelation is a Relational Data 
Base Management System for the 
Personal Computer that provides 
minicomputer power at microcom¬ 
puter prices. You can now have a 
small, portable computer that will 
serve as a working tool on the job, 
at home or on the road for less than 
$5,000. 

Revelation is PICKtm compatible 
and operates on the IBM™ Personal 
Computer, as well as the Columbia 
Multi-PersonahM Computer and the 
COMPAQtm. 

As a Relational Data Base 
Management system, Revelation 
operates on top of MS-DOStm, 
allowing you to switch back and 
forth between either operating 
environment and utilize hundreds of 
existing programs. 

Relational Data Base Management 
and Revelation provide easy access 
to your data on floppy or hard disk. 
You use meaningful field names to 
refer to the data you desire. You can 
also define relationships that exist 
between two or more fields. 

Revelation employs the Intel 8087 
math chip on the PC for powerful 
number crunching capacity, floating 
point arithmetic and hardware 
mathematical functions. 

Our application documentation and 
generation tools make Revelation 
ideal for software development and 
maintenance. And Revelation’s 
advanced technology includes source 
code generation so you can do any 
job that needs to be done. 

Communications problems between 
minicomputers and microcomputers 
are solved as Revelation allows your 
machine to communicate with 
compatible minicomputers. 

Now you can afford the ad¬ 
vantages of distributed processing. 


Why wait? 



IBM Personal Computer 


Collect data at a remote site during 
the day and ship it to your 
minicomputer when you want. You 
can also use your PC as a dumb 
terminal to initiate jobs on your local 
or remote minicomputer. 

System Memory hassles are 
eliminated. Just add one of the many 
available 512K RAM boards to your 
microcomputer and you have the 
memory you need to do your work 
quickly and efficiently with 
Revelation. 

Now you can have minicomputer 
capabilities at microcomputer prices. 

From Cosmos. 


Sample configuration 


Sample IBM System 

• System unit, 64K RAM 
keyboard, 160K disk drive, 
and disk drive adapter 


System price 

$2,205 

• 2nd 160KB disk drive 

$450 

• Monochrome display 

$345 

• Monochrome display 


and printer adapter 

$335 

• 8087 math chip 

$220 

• 256K RAM 


with serial interface 

$349 

• Revelation software 

$950 

• MS-DOS 

$40 

Total 

$4,894 


Minimum configuration 

• 320K RAM 

• 8087 math chip 

• MS-DOS or PC-DOS 

• One single-sided floppy drive 


cosmos 


P.O. Box AH 
123 Ferntree Drive W. 

Morton, WA 98356 
(206) 496-5974 

24-hour answering service: (206) 226-9362 


MS/DOS TM of Microsoft Corp; Intel TM of Intel Corp.; ADDS Mentor TM of Applied Digital 
Data Systems; PICK Operating System TM of PICK SYSTEMS; COMPAQ Portable Computer 
TM of COMPAQ Computer Corp.; Columbia Multi-Personal Computer is registered TM of 
Columbia Data Products Inc. 
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OUR PRODUCTS 
MAKE YOUR COMPUTER 
EASIER TO USE. 



THE NEW SOFT COVER EDITION 


From Jonathan E. Sisk, author of the original “REALITY POCKET 
GUIDE" and the "PICK POCKET GUIDE" comes the next 
generation of quick-reference products that describe every 
command pertaining to the following topics: 


• EDITOR • 

• DATA/BASIC • 

• ENGLISH • 

• PROC • 

• RUNOFF • 

• WORDMATE • 


TCL 

SYSTEM DEBUGGER 

DATA/BASIC DEBUGGER 

SPOOLER 

ERRMSG 

ASCII 


• THE REALITY POCKET GUIDE, Hard-Cover Edition.$29.95 

The original, now in its third printing, is current with Release 4.2. The 6-ring binder fits easily into a briefcase and 
lays flat on any surface for easy use. Colored index tabs make access to any section a snap. 

• THE REALITY POCKET GUIDE, Soft-Cover Edition. .. $19.95 

(SHOWN ABOVE). The same contents as the hard-cover edition, but packaged in a self-standing spiral binder. 

• THE REALITY HELP PROCESSOR....$95.00 

The on-line version of the REALITY POCKET GUIDE provides instant access to over 600 help screens by simply 
entering the word, HELP, followed by the desired command. Each help screen displays the format of a 
command and a brief explanation of its use. Provided on a half-inch tape. 

• THE PICK HELP PROCESSOR.$95.00 

The on-line version of the PICK POCKET GUIDE, for users of any system running the PICK Operating System. Same 
functions as the REALITY HELP PROCESSOR. Provided on a half-inch tape. 


Product 

Reality Pocket Guide, Hard-Cover Edition 

Unit Price 

$29.95 

QTY. Extended Price 

x = 

Company 

Address 



Reality Pocket Guide, Soft-Cover Edition 

19.95 

x = 

City 

State 

Zip 

Reality Pocket Guide, Edition 3 Update 

10.00 

X = 

Phone 

Contact 


Reality Help Processor 

95.00 

X = 

Computer Manufacturer 


800/1600 BPI 

Pick Help Processor 

95.00 

X = 





Shipping, Per Order 

Books, Within United States $ 2.50 

Books, Outside United States 7,50 

Tapes, Within United States 10.00 

Tapes, Outside United States 25.00 


California State Tax (6%) 

Total Enclosed 


Please make checks payable to: 

JES & Associates, Inc. 

P.O. Box 19274 
Irvine, CA 92714 
(714) 786-2211 


Sorry, COD'S Not Accepted. 

Allow 2 to 4 Weeks for Delivery. 

Quantity Discounts Available. Information on Request. 









































Reality Technical Journal 


in conjunction with the special feature on menus, this column will 
discuss Proc transfers. The Proc transfer feature is one of the handiest 
ccranands available through Proc, and is useful for far more than just menu 
construction. They can be used for jobstreams and linking Procs together as 
well. 

a A Proc transfer is simply a way to branch to another Proc 

on any file in the system. There are two types of Proc 
transfers, temporary and permanent transfers. 

During the running of a Proc, if a Proc transfer is 
encountered, control is passed to the Proc specified in the 
transfer (one Proc per transfer). If the transfer is a 
permanent one, then control remains with this second Proc. 
If the transfer is a tenporary one, then control is returned 
to the original Proc when the second Proc is finished. 


PROC 

TRANSFER 

WILL 


FROM ONE 
PROC TO 
ANOTHER 


PERMANENT 

PROC 

TRANSFER 


IS NEEDED 
TO RETURN 
TO THE 
ORIGINAL 


A Proc transfer looks like this: 
(PROCFILE C 


[PROCFILE CUSTOMER. REPORT] 

This is a tenporary transfer. It's enclosed in brackets, 
while the permanent transfer is enclosed in parenthesis. 

This tenporary Proc transfer will pass control to the 
same 'Customer.Report' Proc but after the 'Customer.report' 
is finished, it will return back to the original Proc. 

In order to perform this 'return' to the original Proc, 
the 'Customer.Report' Proc must have a "RTN" statement at 
the end of it. When the ’’KIN" statement is encountered, 
control is returned back to the original Proc. 

A "KIN" statement is harmless and can be put in any Proc, 
regardless of whether or not it will be called by a Proc 
transfer. This allows Procs to be used by themselves or 
called by other Procs. 

An example will help to illustrate the Proc transfer 
better. The first Proc ('Sales.Report') in the example below 
contains a Proc transfer on line 6. When the Proc hits this 
line, control is passed temporarily to the second Proc 
('Customer.Report’). 


The solution 
to those 
confusing 
reference 
manuals! 

FROM INFORMATION 
RESEARCH OF NEW YORK 


Need some help understanding your Microdata™ computer? Then you need Osrow’s Reality® Technical Journal, from 
Information Research of New York. The Journal’s pages are packed with detailed explanations, discussions and 
examples showing how to use and operate Microdata computers. Written in an easy to understand tutorial format, the 
Journal has been read and applied by Microdata users everywhere. Whether you are a novice or an expert, the Journal is 
the perfect complement to confusing and opaque reference manuals. 


SECTION i 

Security: Protecting an Account, System Level Privileges, 
Monitoring System Usage with the ACC File, Protecting Program 
Files and Source Code, Security Verbs, Protecting a File, 

Locking Up Your System, Protecting an Attribute, Protecting a 
Terminal, Reserving a Terminal, Program Protection with Table 
Lookup • Learning the ENGLISH® Language, Dictionary 
Synonyms, Sorting Problems, The F Stack • System Efficiency: 
File Reallocations, The Restore Method, The Tape Method, The 
Copy Method • Debugging Procs • Converting Dates • Editor: 
Commands, Dealing with Lines, Multiple Prestore Commands • 
Reading an Item and Extracting an Attribute, Program and 
System Locks, The Program Debugger. 

SECTION II 

Creating User Accounts: Account Creation Schemes, Defining 
the Nevy Account, Workspace Assignment, Q-Pointers, Proc 
Pointers • Cleaning Up Accounts and Removing: Dangerous 
Verbs/Procs, the Editor Ability, the ENGLISH Ability, the Bisync, 
SCREENPROTM and Tape Verbs, the Spooler and Programming 
Verbs • Creating a Low Priority Account Creation Proc, Synonym 
Accounts • A Proc Primer • Security: Backing Up on Tape and 
Paper, File-Saves, Account-Saves, Dumping Files, Selective 
Restores • Dealing with Data: the Different Ways Data is 
Represented • Macros • ENGLISH: Creating Labels, F-Stacks • 
The RUNOFFTM Fill, Nofill and Justify Commands • Editor: 
Prestore Looping • Replacing Attributes and Writing Items, The 
READV and WRITEV Commands, The MATREAD and MATWRITE 
Commands, The Program Debugger. 

SECTION III 

Menu Construction • System Utilities: The Spooler, The SP- 
STATUS Verb, Assigning the Printer, Creating Hold Files, 

Printing Hold Files, A Proc to Print Hold Files, A Proc to Delete 
Hold Files • Proc: Transfers, Pointers, Jobstream Procs, A Proc 
Primer, The O Command, Screen Formatting, The X Command, 
The D Command • ENGLISH: The SELECT and SSELECT Verbs • 
List Management: Saving Items in a List. 

SECTION IV 

A Complete Program to Find the Report Length of an ENGLISH 
Proc: Introduction, Source, Listing, Narrative • Security: 
Controlling Electricity, Fire Protection, Protection Against Water 
Damage, Controlling Static Electricity • ENGLISH: Default 
Dictionary Attributes for Automatic Listings • A Proc Primer • 
System Utilities: The Spooler, The SP-KILL Verb • Editor: F, FS, 
FI, FD and EX Commands • Efficiency: Scheduling Jobs at 
Night, The TIMESLICE Verb, The POVF Verb. 


Want to learn more about using your Microdata 
computer? Do you need simple explanations telling 
how to make your computer sit up and beg? Order 
Osrow’s Journal today! Available exclusively by 
subscription for $125 since 1981, you can use the 
coupon to order your Journal for only $49! 


Name. 


Company _ 

Address_ 

City _ 

Country_ 

Telephone 


State/Province 
_ZIP/Mail Code. 


_ Journai(s) at $49 each. The Journal 


Please send me_ 

contains all four sections listed. 

Add $4 per Journal for North America shipping. Outside of 
North America, add $7.50 per Journal. 

New York residents, please add appropriate sales tax. 

Make checks payable to Information Research of New York. 
Mail your check and this form to: Osrow’s Journal, 

207 Granada Drive, Aptos, CA 95003. 

ALLOW 4 TO 6 WEEKS FOR DELIVERY 


SUBTOTAL 


SHIPPING. 

TAX. 


TOTAL. 
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Semaphore Corporation 
207 Granada Drive 
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Entire contents copyright © 1983 by Semaphore 
Corporation. All rights reserved. No part of this jour¬ 
nal may be reproduced, transmitted, transcribed, 
stored in a recording, retrieval or computer system, 
or translated into any language or computer 
language, in any form or by any means, electronic, 
mechanical, magnetic, optical, chemical, manual or 
otherwise, without the prior written permission of 
Semaphore Corporation. 

Semaphore Corporation offers no warranty, either 
expressed or implied, for any losses due to the use of 
any material published in Pragma. 


Subscriptions are $25 per issue in the USA, $38 per 
issue to other countries by airmail. All payments 
must be in US dollars drawn on a US bank. 

Address all subscription correspondence to the 
Pragma Circulation Manager, Semaphore Corpora¬ 
tion. When writing, enclose your issue’s mailing ad¬ 
dress label or the numbers from the upper right cor¬ 
ner of your label. 


Address changes should be sent at least four weeks 
in advance. Include your new address along with 
your issue’s mailing address label. 


All correspondence and material received will be con¬ 
sidered for publication. Address all submittals and 
correspondence to the Pragma Editors, Semaphore 
Corporation. All letters to the Editors are welcome 
and as many as possible will be published in the Let¬ 
ters Department. The Editors reserve the right to 
edit all submittals. 


Is there a service Semaphore Corporation can pro¬ 
vide for you? Address all inquiries to Semaphore Cor¬ 
poration or telephone 408-688-9200. 


MENTOR is a trademark of Applied Digital Data Systems • ALL, 
DATA/BASIC, ENGLISH, MICRODATA, PRISM, REALITY, 
REFLEX, ROYALE, RUNOFF, SCREENPRO, SEQUEL, 
WORDMATE are trademarks of Microdata Corp. • INFORMATION 
is a trademark of Prime Inc. • ULTIMATE is a trademark of Ultimate 
Corp. 


Happy Birthday! 

With this first anniversary issue, Pragma begins its second 
year of publication. The entire staff would like to sincerely 
thank all of the readers and advertisers who have supported us 
over the past twelve months. Without your interest and en¬ 
thusiasm, Pragma would not be possible. 


• • • 


This Pragma contains the much awaited index to all previous 
four issues. To insure that all of our regular features could still 
be included, the number of pages in this issue has been ex¬ 
panded to 56 (up from our usual 48). 

• • • 


How many Pick-style systems are out in the field? Based on 
manufacturers' claims, assume 11,000 machines have been 
shipped. Assume 10% of that iron is no longer alive and well. 
Assume one third of the living machines are at sites that don't 
know what a Pick system is. Assume two thirds of the remain¬ 
ing machines have one user actively looking to purchase one 
copy of one product in the Pick marketplace. Assume 15% act¬ 
ually buy. Software vendors take note: that equates to no 
more than 660 possible sales. Does anyone have more promis¬ 
ing statistics? 


New entry #7000 on our mailing list and winner of the (now) 
customary box of See’s chocolates: Steve Jones of the Crisis 
Clinic in Seattle. 

— The Editors 
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utilities 

_ 

Uncompiling, 
Part 2: 

Regenerating 
Source Code 

The second in a series of articles devoted to 
uncompiling object code is presented. The original 
version of the uncompiler from Part 1 is modified to 
allow compilable BASIC source statements to be 
reconstructed from object code. 

The original uncompiler presented in the last installment 
[Uncompiling, Parti, Pragma #4, May 1983, page 12], was real¬ 
ly an “unassembler”, in that it did little more than identify in 
mnemonic form the object code for each BASIC source state¬ 
ment. In order to regenerate compilable source statements 
from object code, the uncompiler must recombine the various 
mnemonic fragments into valid BASIC syntactical structures. 
This is best accomplished by essentially emulating a stack 
machine and “executing” the various operators as they are en- 


litility programs hove soved many o programmer from 
the less appealing aspects of software development and 
maintenance. Reformatting code, stripping files clean of 
control characters, converting data from one format to 
another — oil are examples of tasks best delegated to o 
program and not a programmer. 

Good programmers uiill collect a "toolbox" of utility 
software to use from time to time. If you have a useful 
utility, send it in for publication. R regular feature in 
Pragma will be this Utilities Department, where good 
software tools will be spotlighted. 


countered in the object code, to cause BASIC statements to be 
reconstructed in the machine’s stack. The second version of 
the uncompiler, beginning on page 8, operates precisely in that 
manner. 

For example, operands in the object code like variable names 
or string constants are simply pushed onto a STACK variable, 
such as in lines 37 and 63 of the uncompiler. When an operator 
is encountered, it typically causes one or more STACK 
elements to be combined into an expression, which is returned 
to the STACK. For example, the plus sign operator 
(HEXCODE “A9”) stacks such an expression beginning at 
line 131. When the “final” operator for a statement (such as 
the code for PRINT) has been found in the object code, the 
completed source code is output by subroutine 1100 at line 
144. 

The dialog on page 9 shows actual output generated by the un¬ 
compiler as a result of processing the object code from a 
nonsense test program. Only a portion of all possible opcodes 
is tested for by the CASEs in lines 33 to 123 of this version of 
the uncompiler, so not every piece of object code will be suc¬ 
cessfully uncompiled. The STACK is output by line 25 if an 
unsupported opcode is encountered, to help the user decide 
how to interpret the STACK so that new code can be added to 
the uncompiler to correctly interpret the new opcode. Also, 
note how the opcode file below has been modified in some in¬ 
stances (such as the parentheses after DATE and the blanks 
around AND), to help simplify the generation of source code. 

The next installment will address the problem of handling 
statement labels and GO TOs. E 


00 NULL 

01 END OF LINE 

03 LOAD ADDR 

05 PUSH 

06 GO TO 

10 GO IF ZERO 

11 GO IF NONZERO 

12 FOR TEST 

13 G0SUB 

14 RETURN TO 

20 PUSH 

22 PUSH ADDR 

24 POP 

30 PUSH MAT ADDR 

32 PUSH HAT ADDR 

34 Pd* MAT 

40 PUSH 

62 LOCK 

63 UNLOCK 

66 MAT INDEX 

67 MAT INDEX 

68 NAT ASSIGN 

69 MAT COPY 

6E INPUT USING 

70 INPUT 

71 INPUT,. 

72 INPUT, 

73 INPUT• 

74 INPUT,* 

75 INPUT,:. 

76 PRINT 

77 PRINT 

78 PRINT 

79 PRINTER CNTRL 

7A PRINT ON 

7B PAGE 

7C HEADING 

7D FOOTING 

7E TAB 

7F PROMPT 

80 READC 

82 f£AD 

83 READU 

85 READV 

86 READVU 

88 WRITE 

89 WRITEV 

8A ®TREAD 

8B MATREADU 

8C MATWRITE 

8D SELECT 

8E READNEXT 

90 OPEN 

91 DELETE 

92 CLEARFILE 

94 RELEASE 

95 READT 

96 WRITET 

97 WE0F 

98 REMIND 

9C PR0CREAD 

9D PR0CHRITE 

9E SHARE 

AO AND 

A1 NOT 

A2 OR 

A3 < 

A4 <= 

A5 = 

A6 MATCHES 

A8 PUSH 1 

A9 + 

AA - 

AB * 

AC / 

AD 0- 

AE : 

AF PUSH 0? 

B0 STORE INDIRECT 

B1 ON POP GO TO 

B2 ON POP G0SUB 

B3 SUBROUTINE 

B4 CHAIN 

B5 ENTER 

B7 CALL 

B8 CALL INDIRECT 

B9 BREAK KEY ON 

BA BREAK KEY OFF 

BB DATA 

BC ROM 

BD CLEAR 

BF RETURN 

CO ERRMSG ID 

Cl STOP 

C2 MARK ARGS 

C3 DEBUG 

C4 DELETE2 

C5 EXTRACT2 

C6 DELETE1 

C7 EXTRACT1 

C8 INSERT2 

C9 REPLACE2 

CA INSERT1 

CB REPLACE1 

DO DATED 

D1 TINEO 

D2 TIMEDATEO 

D3 IC0NV 

D4 OC0NV 

D5 NUM 

D6 DELETE3 

D7 EXTRACT3 

08 INSERTS 

D9 LOCATE ATR 

DA REPLACE3 

DB ABS 

DC INT 

DE MOD 

DF PHR 

E0 RND 

El SORT 

E2 LN 

E3 EXP 

E4 COS 

E5 SIN 

E6 TAN 

E7 8 

E8 ASCII 

E9 CHAR 

EA C0L1 

EB CQL2 

EC COUNT 

ED EBCDIC 

EE FIELD 

EF 

F0 INDEX 

FI LEN 

F2 SEQ 

F3 SPACE 

F4 STR 

F5 n 

F6 TRIM 

F8 LOCATE SUBVAL 

F9 LOCATE VALUE 



® 
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AUROTECH 

OF COLORADO 


yr Now Software Similar To 
VisiCalc® Is Available On The 
Pick Operating System 


A financial planning and modeling system that surpasses all 
others. Ideal for preparing financial models, budgets, cost 
estimates, sales recaps, scheduling and resource reports and 
analyses. 

computer data base without the 
need for costly interface 
programming. 

AUROPLAN can be learned in just 
a few hours. The only limit to its 
capability is your imagination. 

That's AUROPLAN! Now 
available for use with the Pick 
Operating System. 


AUROPLAN is an electronic 
worksheet designed to drastically 
reduce the time and effort required 
to prepare financial reports. 

AUROPLAN has a trial value 
feature which allows you to ask 
"What if?" without destroying 
previously entered data or 
formulas. 


AUROPLAN allows you to 
name elements in one worksheet 
and reference them in another, 
so you can construct modular 
worksheets and link them 
together. This eliminates the 
need for huge worksheets and 
the long calculation times 
associated with them. 


For more information on 
AUROPLAN, contact: 


AUROTECH 


OF COLORADO 


925 S. Niagara 
Denver, CO 80224 
(303) 388-1612 

VisiCalc" is a trademark of VisiCorp, Inc. 


AUROPLAN can retrieve data 
directly from your existing 
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How ore hardware and software products created? How 
are they sold and marketed? Illhy ore some successful 
and others are not? Ill hot should be done to make the 
next product even better? 


producer 

profile 


Regardless of (he size of a company (hot is selling some 
product, often only one or tuio employees ot the com¬ 
pany will control the engineering and marketing of the 
item being sold. In this regular department. Pragma will 
be interviewing those personnel intimately involved with 
the creation of popular and well known products in order 
to reveal the who, what, when, where, why and how of 
organizations currently offering goods and services to 
Pragma readers. 



Interactive Systems is a small company located in 
Phoenix that develops and markets software for 
Pick operating system machines. Their 
Compu-sheet product is perhaps the largest selling 
independent software product in the Pick market. 
For this issue’s profile, Pragma interviewed John 
Brandon, owner of Interactive Systems. 


spreadsheets. They also decided to bundle Compu-sheet in 
with all of their Zebra systems. Following that, Datamedia 
also agreed to take the product and offer it to their customers. 
However, they are not bundling it with each system as are 
GDI and General Automation. They are instead offering it as 
an extra cost option. Most recently, we’re negotiating right 
now with a company called Bantam which is taking the Pertec 
system and marketing it under their name. 


Pragma: How many Compu-sheets have been sold? 

Brandon: Right now there are around 250 to 260 of them out 
there. It started off slow. I think the first four months or so I 
only sold maybe forty of them. Apparently more and more 
people are becoming aware of the product. In June I think I 
did forty in that one month. I perceive that as long as I can 
keep doing advertising, doing mailings, trying to reach that 
segment of the user base that I haven’t already hit, I can see 
those sales continuing. 

Pragma: What is the history of Compu-sheet? 

Brandon: It goes back about two years ago, when Visicalc first 
came on the market and became so popular. My brother has an 
Apple, and one day I was over for dinner and he started telling 
me about Visicalc and how it worked. I was quite intrigued 
with the whole concept of the electronic spreadsheet. I 
thought that if we could take those basic concepts and apply 
them to the Pick operating system environment, we could of¬ 
fer a very powerful tool to the Pick user base. I sat down at 
that time and tried to put together some ideas as to how I 
would approach it, and kept running into brick walls, at least 
for about the first six months. I didn’t spend six months act¬ 
ually working on it, but from time to time I would try to figure 
out what approach I would take. Finally, about eighteen 
months ago, I came up with some ideas, and Compu-sheet 
began to evolve. Interestingly enough, I was part of the way 
into it when I received a letter from Computer Distributors 
(CDI), who at that time were looking for an electronic spread¬ 
sheet application for their Series/1 implementation, and asked 
if I had one or knew of anybody who had one. At that time I 
decided I’d put a little more effort into completing the project. 
This was about March of 1982, and I had a version running by 
July that I demonstrated to CDI. They liked the product and 
subsequently accepted it with some modification. Following 
CDI’s acceptance, I began to approach other vendors with the 
concept of bundling it into their operating system as CDI had 
wanted to do. I found that there was quite a bit of interest on 
the part of the vendors. At the same time, I was putting 
together a program for marketing the product to the end user. 
The next vendor that was showing some interest was General 
Automation, and I worked with them for several months. 
They did an analysis, as did CDI, of a number of different 


Pragma: What have been your experiences in trying to market 
the product to end users? 

Brandon: The marketing effort that goes into a product like 
this is easy to underestimate. The first problem I ran into was 
getting a list of my potential customers. It seems as though 
the lists in the Pick market are very difficult to come by and 
are guarded with almost a secrecy that’s difficult to penetrate. 
Pragma’s list has been one that has been available and it’s 
probably the most comprehensive. There are other lists, but I 
think that even if we took all the lists that are available, we 
still could only reach 50% of the market. That’s the first prob¬ 
lem that you run into. The second problem is that I’m primari¬ 
ly a data processing professional, I’m not a marketer. At least 
I’m not the marketer that I felt was necessary to take a pro¬ 
duct like this to the marketplace and do a good job. So I decid¬ 
ed at the front end that I was going to take it to a professional 
agency to get their ideas and suggestions as to how to put 
together a marketing program. 

Pragma: Why did you decide to program in BASIC and to sell 
source? 

Brandon: The total Pick user base is not that large. Half of 
them or so are Microdata users, but there’s still a good 
percentage of other systems out there. I decided that if I tried 
to offer the product in assembly language, I would wind up 
maintaining a different version for every Pick machine. I just 
felt that I couldn’t do that and support the product the way I 
really wanted to. BASIC has its disadvantages in some areas, 
particularly speed, but the advantage over assembly code 
comes in the area of support. I only have to maintain really 
two versions of the product, one for Microdata and one for 
Pick, and the differences between the two are really not that 
great. Actually there’s another version for the Prime Informa¬ 
tion system. Still, the three versions are very close together, 
and there’s really not much difference in the source code itself. 
So, I decided I would write it in BASIC to make it easier on me 
as far as maintenance goes. I no longer have to worry about 
whether my programs will function every time a manufacturer 
comes out with a new operating system. Another definite plus 
for selling BASIC source code is that when I find a bug, or if I 
want to make an enhancement, it’s easy for me to put in a 
letter the changes that are necessary. All you have to say is 
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MULTIDATA’S NEW 
FIXED ASSET MANAGEMENT SYSTEM 

...Handles the Exceptions as well as the Rules... 


Multidata Corporation offers the most comprehensive on-line systems available. Each system is ergonomically 
designed to be truly user-friendly. Comprehensive “help” messages are provided at every data-input location. 
User-definable formats for data entry and retrieval let the system conform to your current business structure. 

The Fixed Asset Management System provides a total solution to this complex problem. A representative sam¬ 
ple of the features are: 


CONTROLLER 

• Corporate Elections/Standards 

• All Depreciation Methods & 
Conventions including ACRS 

• Handles non-standard items, 
such as partial fiscal year, 13 
Accounting periods, or 4-4’5 

• Depreciation projections, by 
period and G/L account 

• Over 30 reports, each having 
multiple selections 


TAX ACCOUNTANT 

• Book federal and multiple state 
calculations 

• ITC Calculations 

• Ability to amend prior year 
records 

• Gain/(loss) calculations 

• Reconciliation of book-to-tax 

• Ability to “what if’ depreciation 
methods on an asset or entire 
property group 


PROPERTY MANAGER 

• Asset description 
—Vendor/manufacturer 
—Serial/Model Number 
—Location/ Assignment 
—Tag Number 

• Asset acquisition/disposition 

• User definable formats 

• Multiple locations (state, 
county, city, building) 


By using Multidata’s full support program, you are protected against any future changes in the law obsoleting 
your system. 

ANOTHER MULTIDATA PRODUCT... 

The Agency Management Support System provides Insurance Agencies and Brokers with the latest on-line 
data base technology for: 


• Automated Case Tracking • Data Base Analysis 

• Marketing/Sales Support • Financial Analysis 

• Electronic Filing/Mail 


Increase your profitability through greater productivity. A General Information Manual and Demonstrations 
are available. We would like the opportunity to tell you more about this Information Management System. 

WIULTIDATA 

I ■ II • l ' CORPORATION 

Integrated Solutions For Business 

1570 The Alameda, Suite 110 • San Jose, California 95126 • (408) 293-1801 


PRAGMfi • ISSUE 5 • AUGUST, 1983 • 207 Granada Drive • Aptos, CA 95003 


11 










“edit this program and modify line 312 from this to that, then 
file it and recompile the program” and you have the bug fixed, 
without creating 250 tapes and mailing them to all the 
customers. That can be very expensive. As a result, I tend to 
notify my customers of problems and give them the oppor¬ 
tunity to implement enhancements to the product rather fre¬ 
quently, and the users appreciate that because the product is 
kept up to date. Not only that, but have you ever talked to a 
consultant that wouldn’t recommend or almost insist that the 
client have access to source code for any purchased software 
product? 

Pragma: Even so, aren’t there problems with media and 
operating system releases that the manufacturers keep chang¬ 
ing on you? 

Brandon: Actually, I’ve never run into a problem because of an 
operating system release. In one case there was a minor prob¬ 
lem prior to release 1.6 on the ADDS Mentor operating 
system. The INPUT command didn’t function properly when 
specifying a length. You’re right, there is a hassle when it 
comes to media. You’ve got Microdata, Pick and Prime. Then 
I’ve got 800 and 1600 BPI tapes that I have to maintain. 
Then, just recently, \A inch cartridge drives have become 
available, and I have to supply that media as well. Unfor¬ 
tunately, the vendors haven’t decided to make all the Va inch 
drives compatible, so each of the drives requires a copy to be 
recorded by that particular machine. 

Pragma: How has developing and selling software turned out 
to be different than you expected when you started? 

Brandon: There have been a lot of differences from what it’s 
turned out compared to what I expected. One of the most in¬ 
teresting things that has come out of this is I had anticipated 
that dealing with customers would be somewhat difficult. 
There are really a bunch of good people out there, who are very 
easy to work with and are willing to work with you. I an¬ 
ticipated a little more of a problem in that area than what I 
wound up with. Support is another area. I think I 
underestimated the amount of effort it would take to support 
the users for a product like this. I find that about 50% of my 
customers will call me once with a question about some phase 
of the operation of Compu-sheet. I would say that out of those, 
probably half of those would call me two times, and a very 
small percent call me more than two or three times, a very 
small percent. We put together an eight page brochure that 
describes a lot about how the product works, yet prospects 
will still call and ask questions that are spelled out in the 
brochure. That’s okay. I think that some customers just want 
to make sure that you’re real, make sure that somebody 
answers the phone and there is going to be somebody there to 
support them when they have a problem. 

Pragma: How difficult was negotiating with the system 
vendors? 

Brandon: Once you can get in the front door, once you can get 
to the decision maker or the individual that is responsible for 
doing the evaluation, you find that they are very easy to work 
with, very easy to talk to. I was quite surprised in that area. I 
thought that they would be very difficult to work with. It 
didn’t turn out to be that way at all, at least once you can get 
to that decision maker. That’s the problem, getting to the 
right individual. That is very difficult to do. 

Pragma: If you were introducing a new product now, what 
would you do differently? 

Brandon: I would do a lot more advertising right up front. 
Even though I did a fairly respectable job of promoting 
Compu-sheet to the existing user base, I think I could have 
done a better job in that area right up front. I think if I were to 


approach it again, I would have invested more money at the 
front end in a better advertising campaign. 

Pragma: Is the Pick operating system becoming a large 
enough force in the industry, so that software vendors can 
make a living off of it? 

Brandon: The existing user base is not very big. In order to 
make a living at it, you’ve either got to sell a heck of a lot to 
capture a large percentage of that existing base, or ask a lot of 
money for the product. I feel that the Pick operating system is 
without question the best business operating system available 
in the marketplace. I see it expanding at a rapid rate right 
now, but I’m disappointed at the rate at which it is expanding. 

I don’t think that the manufacturers are really putting effort 
into educating non-Pick users in the advantages of the 
operating system. I would really like to see a lot more done in 
that area. We should see more articles in technical trade jour¬ 
nals about the operating system, why it is as good as it is. 

Pragma: What does the operating system lack? 

Brandon: Communication I think is the most serious problem. 
We really need the ability to share a data base among a 
number of different machines. We need to be able to offer com¬ 
munication at a lot higher level than what is currently 
available. Machine communication as well as communication 
to other types of devices. I think that we need a lot better 
word processor, in order to support the small business 
establishment the way we’d like to. Pick should be able to slip 
into small businesses and service both data processing and 
word processing, because too many small businesses don’t 
have the luxury of being able to afford both. We should be able 
to provide that to them. 

Pragma: If I’m a software developer, and I can bring home an 
IBM personal computer for a couple of thousand dollars and 
write a program for an existing market of hundreds of 
thousands of users, why should I look at the Pick market at 
all? 

Brandon: Because there is a customer base there with Pick. 
There is money to be made with Pick. In the IBM PC 
marketplace, you’ve got every 14 year old kid out there who 
has a PC sitting in his bedroom coming up with the idea of 
marketing software. If you pick up any PC magazine, 90% of 
its weight is in advertisements for other software products. If 
you were to develop a product for the PC marketplace, I think 
that the cost of promoting it in the right way would require an 
awful lot of capital. In the Pick marketplace, you don’t have 
many software vendors out there. The need for good quality 
software exists, and if you develop a good product, it’s quite 
easy to market. You don’t have to battle with 50,000 other 
software developers. 

Pragma: What are your feelings on the pricing of software? 
Brandon: I feel that software in the Pick market has been pret¬ 
ty much overpriced. It’s really been necessary to charge a lot 
of money for software simply because of the small potential 
base of customers that you have. But that’s changing. It’s 
kind of tough to go out there and ask two or three thousand 
dollars for software on a Pick machine when they can go to a 
local computer store and see it advertised for $395 running on 
an Apple machine. As users become more and more aware, 
they realize that they don’t really have to pay such high prices 
for software, that you can get quality software at low prices. I 
think the days of charging extremely high prices for software 
are gone. 

Pragma: What are the pros and cons of having dealers sell 
your product for you? 

Brandon: The pros are that you have others answering the 
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questions that demand your time. That aspect of it makes it 
very nice. You can still derive income from your software pro¬ 
ducts without as much demand placed on you. The disadvant¬ 
age is I wind up getting dealers calling me on the phone and 
they’re all excited about Compu-sheet and they talk about how 
many customers they have out there and they want to be a 
dealer for it and so on. So we work with them and have them 
complete our software representative agreement, and go 
through all the formal procedures, and all too often you just 
don’t hear all that much from them again. I don’t know if it 
just gets put on the back burner or the salesmen just don’t 
understand that much about the product to promote it, or 
where the problem lies. The initial enthusiasm, compared to 
the results some of them have, is a little bit disappointing, to 
say the least. On the other hand, there are good dealers out 
there who understand the needs of the market. They do a good 
job of marketing software for software houses. But there 
aren’t as many of them who do a good job as there are who talk 
about doing a good job. 

Pragma: Do you perceive any differences between the U.S. and 
foreign markets? 

Brandon: I think the foreign market is a lot more sophisticated 
than the U.S. marketplace. For example, someone in England 
may make a decision to buy a computer. They just take the 
whole process a lot more seriously, computer and software 
both. I don’t think that, over there, computers are the status 
symbol that you find they are in the United States. Foreign 
users keep you on your toes a lot more. You can tell a lot by the 
type of question that they ask. Maybe because it costs so 
much to make a phone call from England, they don’t call you 
unless they have a good one. But it just seems that the level of 


question tends to be very, very good, and very well thought 
out before they call. 

Pragma: What about the logistics of trying to reach and sup¬ 
port foreign users? 

Brandon: It’s much more expensive to reach that market. You 
can’t do bulk mail, it costs you as much as regular mail. It 
costs four or five times as much to reach that market. The 
market isn’t as big, and you don’t get the same percentage 
response out of them as you do in the United States. I think 
justifiably so, because they must feel that if they needed sup¬ 
port it would be much more expensive and much more difficult 
for them to receive it. I’ve often wondered whether or not the 
effort of trying to reach the overseas market has been 
justified. I can’t say that it really has up to this point. 

Pragma: What advice would you give the budding entrepeneur 
who is planning to unleash a software product? 

Brandon: First of all, don’t underestimate the scope of the pro¬ 
ject. I’m taking for granted that whoever is planning on doing 
this has done the proper market study and evaluation to deter¬ 
mine the total potential customer base, and has done some 
basic calculations to determine whether or not it’s worth get¬ 
ting into the project at all. Assuming that, I would say adver¬ 
tising is the most important portion of marketing the product. 
If you are not prepared to do it right the first time around, and 
get the concept and the idea of what you have to offer your 
customers across to them, you will definitely be disappointed 
in the performance of the product. You’ve got to be able to get 
out there and get the customer educated as to what you have 
to offer. 


Networking With Pick Systems™ 



The Intelligent Data Mover (IDM) from S.K.P. Electronics will transfer items 
and/or files between all Pick System™ computers. 

Contact: 

Henry Herman 
S.K.P. Electronics 
1232-E South Village Way 
Santa Ana, CA 92705 
(714) 972-1727 
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A Day of 
Revelation 


An evaluation of the Pick-style operating system 
called Revelation, available from Cosmos for the 
IBM personal computer, also known as the IBM PC. 


Editor's note: Cosmos supplied Pragma with a complimentary 
copy of Revelation, knowing that we would be experimenting 
with the product and possibly doing an article reporting our 
findings. What follows is the one-day diary recorded by our 
staff as they tried the product for the first time. 

10:00 AM: We open the large envelope delivered by UPS from 
Cosmos and discover the following contents: 

1 packing slip claiming we have received 
“REVELATION W/CABLE”. 

1 345 page manual titled “INTRODUCTION, 

R/LIST, R/DESIGN”. 

1 280 page manual titled “R/BASIC”. 

1 pamphlet titled “HANDBOOK”. 

1 short ribbon cable with female connectors on both 
ends. 

2 floppy disks, both with blue “R/BASIC labels. 
“REVELATION” is typed on one label, 
“UTILITIES” is typed on the other. 

The first thing we notice is that neither disk is write protected. 
Since we have just purchased a box of double sided, double 
density, soft sectored disks in anticipation of making backup 
copies of the Revelation disks, we immediately apply write 
protect tabs from that box of disks onto each of the Cosmos 
disks before we manage to accidentally clobber them. Cosmos 
should ship disks in permanently protected sleeves, like the 
disks you get when you buy a PC, or they should at least apply 
write protect tabs before shipping. 

10:30 AM: We begin by skimming through the various 
manuals to get a feel for the system. The Handbook pamphlet 
consists of a few introductory notes, a software license, a war¬ 
ranty, and forms for reporting bugs and for designing applica¬ 


tions software with the R/Design utility. The Handbook 
describes Revelation as consisting of: 

R/Basic, a procedural language 
R/List, a report generator 
R/Edit, a line editor 

R/Copy, moves files between Revelation and DUb 
R/File, creates, clears or deletes files 
R/Design, an application development system 
R/Net, a terminal emulator and download tool 
R/Upload, the complement of R/Net 
R/Buf, a printer buffer 

That seems to be a lot more software then what was listed on 
the covers of the manuals. Do we really have all of the 
documentation? Yes, because it turns out that the two large 
manuals describe a lot more than their titles imply. Ihe 
Introduction-R/List-R/Design manual actually contains 35 
pages on introductory concepts (such as files and records), a 60 
page tutorial on R/List, two more tutorials totaling 80 pages 
on R/Design, another 80 page reference section on R/Design, a 
65 page reference section describing Revelation commands 
(such as CREATE-FILE and SORT), and three short appen¬ 
dices on file structures, R/Net and R/Upload. The R/Edit 
manual is found in the back of the R/Basic manual, which was 
briefly described in the article A Comparison of BASIC lm- 
plementations [Pragma M, May 1983, page 18]. 

We notice that the Handbook pamphlet says our PC must in¬ 
clude 320K of RAM, an 8087 math chip, and MS-DOS or 
PC-DOS (both are names for IBM’s standard PC operating 
system), although it doesn’t mention which release of DOS, 
while the Introduction manual doesn’t say a thing about 
memory or chips but does mention that DOS 1.0,1.1 or 2.0 all 
support Revelation. 

11:00 AM: The Introduction shows that Revelation is invoked 
by first booting the machine under DOS and then inserting 
the Cosmos disk and giving the REV command to start ex¬ 
ecuting Revelation, but first (in case something should go 
wrong) we begin making backup copies of the Cosmos disks 
using DOS’s DISKCOPY and DISKCOMP commands. 

11-15 AM: One of our new backup disks has started making 
horrible scraping noises while being copied. Apparently we 
didn’t carefully center the disk while loading it and lowering 
the hub, which ended up clamping down on the disk instead of 
through the center hole. Now the edges of the disk around the 
hole are a bit wrinkled, which might have been avoided if our 
box of new disks had come supplied with hub rings. We notice 
the Cosmos disks already have hub rings. Good. 

11:45 AM: We are done making backup copies. We have quick¬ 
ly come to the conclusion, as a result of giving DOS copy com¬ 
mands but not yet even having tried Revelation, that the IBM 
keyboard is very poorly designed and awkward to use -Ap¬ 
parently this has been a complaint of many PC owners. (This 
particular machine was borrowed just to let us try Revelation.) 
The SHIFT key is particularly poorly positioned and shaped. 

Noon: With only a brief scan of the Introduction manual, and 
in just fifteen minutes, we have been able to successfully use 
many commands such as LIST, CREATE-FILE and COPY, 
and also to exercise much of the editor. A CUSTOMERS fi e 
already on disk (for the various documentation tutorials), mid 
the similar ity of so much of the system with other Pick 
machines, has made it particularly easy to jump right in and 
start exploring. Let’s just keep poking around... 

12:15 PM: More and more, we’re becoming aware that the 
system sometimes momentarily pauses as the floppy disk 
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Which method is your 
company using to create 
computer programs? 

Method 1: WASTE 
Method 2: WIZARD 

Quit wasting time and 
money. Use WIZARD and 
start creating your 
programs in minutes 
instead of months. 

WIZARD is software that asks you “fill in the blank” questions about the kind of data entry 
program you want to create. WIZARD then uses your answers to automatically write the 
program for you. 

To try WIZARD with no obligation, send your check for $2100 to Automatic Programming. 
We will send you WIZARD on magnetic tape along with complete instructions. If within 30 
days of receiving your tape you are not completely satisfied with WIZARD for any reason, we 
will permit you to return WIZARD, and we will then return your uncashed check to you. 

Automatic Programming Inc. • 85 Lakeshore • Irvine CA 92714 • 714-552-2800 
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does a read. Even though we're seeing a wait of only a fraction 
of a second, we also know that only the speed of the floppy is 
what is holding things up. Already we're drooling for the XT 
model of the machine, with the ten megabyte hard disk. 

This PC has a color monitor, and the convergence is not the 
greatest in the world, so each character (displayed as white on 
black) has a tiny rainbow-colored fringe. Also, as listings are 
output to the screen, or when keys are hit, the display 
“glitches" and small cursors seem to randomly appear on the 
screen. Why? 

12:30 PM: Output to the printer seems to print with no prob¬ 
lems, although buffering doesn't seem to be taking place since 
we don't get a colon prompt back until the printer is done. A 
quick search of the documentation fails to locate any informa¬ 
tion on R/Buf. 

We notice that although the display waits after each page 
when doing a LIST, if we do a COPY of items to the screen, 
one item per page is displayed with no waiting between items, 
so the output just whips on by and we can’t read it. There 
must be some kind of option or command to control that, but 
we can't find it. 

12:45 PM: The awkward keyboard is getting to be a real 
nuisance. It's interesting how the hardware doesn’t seem up 
to par with the software. 

We have discovered a HELP command and a HELP file. The 
file mentions that R/Net will only work with 2.0 DOS. Let’s 
see if we can get the PC talking to the Microdata™ in the next 
room. 

1:20 PM: The terminal that happens to be sitting next to the 
PC is an ADDS Viewpoint on a 1200 baud line to the 
Microdata. We booted 2.0 DOS on the PC, started R/Net run¬ 
ning, plugged the ribbon cable sent with Revelation into the 
serial port on the PC, plugged the 1200 baud line from the 
Microdata into the ribbon cable, and it all worked! We can now 
use the PC as a terminal on the Microdata. 

We’ve noticed that R/Basic does not support an (X) option 
with the BASIC verb to allow cross-reference output. We've 
decided to write a cross-reference generator in order to see 
what writing a significant program with R/Basic is like. We'll 
create the program, which will be called INDEX, by modifying 
the old RENUMBER program from the first issue of Pragma 
[RENUMBER: A Program for Renumbering Statement 
Labels, Pragma #1, August 1982, page 9]. Since we already 
have a copy of RENUMBER on the Microdata, we'll download 
the source code to the PC to avoid having to retype the pro¬ 
gram and to exercise R/Net. 

2:00 PM: The download is successful. With Revelation ex¬ 
amples as a guide, we created and ran the following program 


001 OPEN “BP" aSE STOP “BP" 

002 PRINT “ITEM": 

003 INPUT ID 

004 READ ITEM FROM ID aSE STOP ID 
005 PRINT CHAR(2)sITE«:CHAR(3): 

006 STOP 
007 END 

to allow the Microdata to read the RENUMBER item and 
transmit it to R/Net. In just a few seconds and after a handful 
of keystrokes on the PC, R/Net was done and had created a 
DOS file containing the item. One more COPY moved the item 
from a DOS into a Revelation file. Now we can edit 


RENUMBER on the PC to turn it into INDEX. 

4:40 PM: INDEX works, but it appears to run very slowly. 
(See listing on page 16.) Further tests will be needed to deter¬ 
mine where the bottleneck is, but we'll have to leave that for 
some other time. Note that INDEX cross-references all sym¬ 
bols, including reserved words and numeric constants, even in 
comments. Reducing the output of INDEX to only variable 
names will be left as an exercise for the reader. 

The printer on the PC needs a new ribbon, so let's see if we can 
use R/Upload to transmit INDEX back to the Microdata so it 
can be printed there. 

5:15 PM: Again with Revelation examples as a guide, the 
following program 


001 DIH ITEM 100) ? HAT ITEM = ■■ 

002 OPEN "BP 8 ELSE STOP “BP* 

003 PROMPT M §“ 

004 I = 1 

005 LOOP 

006 INPUT LINE 

007 UNTIL LINE = CHAR(26) DO 

008 ITEM(I) = LINE 

009 1 = 1+1 

010 REPEAT 

011 MATWRITE ITEM ON “UPLOADED" 

012 STOP 
013 END 

was written to allow the Microdata to receive text from the 
PC. R/Upload worked smoothly, and INDEX was successfully 
sent to the Microdata for printing. 

5:30 PM: The day is over and our investigation of Revelation is 
done. The Revelation package is definitely powerful software. 
Although it is strictly a single-user system, it is familiar and 
easy to use for anyone with experience on Pick operating 
system machines. The reasonable price ($950) and PC environ¬ 
ment make it affordable and accessible. However, users should 
be careful that their PC has enough power (especially disk 
space and speed) to take advantage of the software. 

In theory, remote workstations that offload processing chores 
from a central host computer are a good thing, but it remains 
to be seen just how well that approach works with PCs and a 
machine like a Microdata. (After all, downloading and 
uploading programs and data still doesn’t give you a data base 
that is truly being simultaneously shared by two machines, 
while the cost of adding one more dumb terminal onto a fast 
enough host is very cheap today.) Revelation works fine as a 
stand alone system, but data bases often support multiple 
users, and there is only one keyboard on the PC. A local net¬ 
work of Revelation machines is probably the best future for 
this product. Unfortunately, R/Basic does not appear to cur¬ 
rently support record locking, so it is not clear how Revelation 
programs would share files in a network. 

The lack of an index in the Introduction manual was the only 
item that, for short moments, made Revelation a problem to 
use today. The product does deliver as advertised, and users 
who know how to fit microcomputers into the data processing 
scheme at their site will certainly get enough bang for the 
buck. 

E 
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benchmarks 


Arc you thinking of doing on upgrade to your hard- 
more or software? fire you comparing throughput 
and performance while shopping around for a 
system? Hove you converted from one machine to 
another? Be sure to send in your benchmark 
statistics to Pragma, so the results con be featured in 
this department and shared with other installations. 


IBM Personal 
Computer vs. 
Microdata™ 
Reality® 

A variety of old and new benchmarks reveal large 
but unpredictable differences in the performance of 
these two machines. 

The arrival at Pragma of the Revelation software [A Day of 
Revelation, page 14] has allowed us to make some new tests on 
an IBM PC with 384K of RAM and compare the results with 
what has almost become the standard ruler for this depart¬ 
ment: a Reality with 128K of MOS memory. 


Pragma #3 also included the FIELD and OCONV benchmark 
programs and the Reality timings repeated here. The cor¬ 
responding PC times (and all remaining table entries) were ob¬ 
tained during the Day of Revelation. In this case, Revelation 
can’t keep up with Reality, slowing by 15% in the FIELD test 
and by almost a whopping 900% for OCONV! (The OCONV 
test does a FOR loop 10,000 times on Reality. Because Revela¬ 
tion took so long in this test, the loop was cut to 1,000 itera¬ 
tions and the PC then finished in 61 seconds, which was 
multiplied by ten to reach the figure in the table.) 

The MATH test was the following program: 


001 START = TIMED _ A4 
002 FOR I = 1 TO 10 STEP .01 
003 A = COS(I) ? B = SIN(I) ? C = TAN(I) 

004 D = EXP(I) 5 E = PWR(3,I) ! F = SQRT(I) 
005 * PRINT I*A»B»CiD>EiF 
0% NEXT I 

007 PRINT (TIHEO-START)t* SECONDS" 

008 STOP 

no9 an 


The PC obviously makes good use of Intel’s 8087 math chip 
(required when running Revelation), cutting 90% off the Reali¬ 
ty time. 


The table below contains the results of six different tests run 
on both machines. All times are in seconds. 

The first two tests, LOOP and LOCATE, were originally 
described in this department last year [Pragma #2, November 
1982, page 20] and included the times shown here for the Reali¬ 
ty. The Revelation timings were obtained by Cosmos and were 
reported here earlier this year [More BASIC Comparisons, 
Pragma #3, February 1983, page 25]. The times equal a 14% im- 
provement over Reality for LOOP on a PC, and 32% for 
LOCATE. 



LOOP 

LOCATE 

FIELD 

OCONV 

MATH 

COMPILE 

Revelation: 

133 

32 

45 

610 

10 

33 

Reality: 

154 

47 

39 

62 

113 

118 




The final test was the compilation of a 352 line purchase order 
entry program consisting of 9,140 bytes of source code accept¬ 
able to the compilers on both machines. Revelation compiles 
remarkably fast, spewing out asterisks almost as quick as a 
Sequel, and over 70% faster than the Reality. 

Of course, Revelation is limited to one user at a time, so com¬ 
paring the Cosmos product with Reality is definitely compar¬ 
ing apples and oranges, but still it is fascinating to see just 
how the two compare. 
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Automation Technology 

TOTALWARE 

FEATURING TOTALLY INTEGRATED PACKAGES 
Structured Software for Pick System® Hardware 


MARKETWARE 

SEARCHWARE 

PLANWARE 

MEDICALWARE 

SALEWARE 

PHARMACYWARE 

RENTALWARE 

AN AUTHORIZED 
GENERAL AUTOMATION 
‘ZEBRA’ DEALER 


A comprehensive package designed to provide 
several marketing tools to both managers and 
their sales staff. 

A personnel agency system designed specifically 
for permanent placement and consultant 
organizations. 

An electronic mail, time management and 
appointment scheduling system, which 
includes at a glance reporting. 

A medical practice system which dramatically 
reduces paperwork by automating third party 
insurance billing. 

A basic distributor package with functions from 
order entry inventory control to complete 
financials. 

Allows pharmacists to fill prescriptions quickly 
and automatically generate third party insurance 
billing, resulting in increased payment time. 

A property management system which 
encompasses all phases from tenant receivables 
to vacancy factor analysis. 


Call your local 


(215) §85-4580 


TOTALWARE dealer or 
Automation Technology today. 




Automation 

Technology 873 Township Line Road ’ PO Box 7137 - EUcins Park - PA19117 • ( 215 > 885-4880 









VANILLA 
(The No-Frills 
Manufacturing 
System) Part 5: 
Receiving 

This filth installment in a series on the design and 
implementation of a manufacturing system presents 
the program for entering purchase order receipts. 

The previous article in this series [Pragma #4, page 32] 
presented the GET.PO program for creating purchase orders. 
The RECEIVE program listed here on pages 22 and 23 is the 


complement to GET.PO, in that it is designed to capture 
receipts against items in the PO file and to update the pur¬ 
chase order open balances to reflect the receipts that have oc¬ 
curred. 

The file formats shown below include new descriptions of the 
IM file for tracking inventory quantities and the RC file of 
receivers, both of which are updated by the RECEIVE pro¬ 
gram. Also listed are some new attributes for the PO file that 
RECEIVE maintains. (See the last installment for descrip¬ 
tions of the other purchase order file attributes.) 

The RECEIVE program is a fairly straight forward transac¬ 
tion processing program. Note that although no updates are 
made to the vendor file, VM items are still locked in the same 
manner and for the same reasons as described in the GET.PO 
documentation. Also, parts are considered destined for inven¬ 
tory if they are charged to an appropriate account number on 
the purchase order. RECEIVE arbitrarily assumes the correct 
inventory account number is 1234-56 (see line 102 of the pro¬ 
gram). 

The next Vanilla installment will investigate parts inspection 
and quality assurance. 


File. 

IM 

IM 

IM 

IM 


PO 

PO 

PO 

F'O 


FILE FORMATS 

Attribute.. AMC * Description, 


RC 

RC 

RC 


RC 

RC 

RC 

RC 


PART 
ON.HAND 

RI.QTY 


QTY.IN 
RC 

QTY.RTV 


NUM 

PO 

ITEM 

QTY 

ARRIVED 

VENDOR 


Inventory master. 

0 Part number. . , ., . 

1 A Inventory quantity on hand. Does not include 

RI« QTY * 

2 A Quantity received and wait ins to be 

inspected. 


20 S 

21 S 

22 V 

0 

1 V 


V 

V 
A 

A 


Purchase orders. _ , , 

Quantity received. This and Rc are associated 
with the DATE.IN attribute. 

Receiver number. 

Quantity of parts returned to vendor. 
Associated with the ITEM attribute. 

Receivers. . , 

Arbitrary receiver number assigned by- 
receiving dock. -j. il 

Purchase order numbers this receipt is for. 
ITEM and QTY are associated fields. UTYs from 
multiple inputs are merged so that an ilk™ 

•for a siven F‘0 never appears more than ohl.#. 
Item number on purchase order this receipt is 
f o r - 

Quantity be ins received. 

Date items arrived at receiving dock, as 
entered first time receiver was created. 
Number of vendor this receiver is from. 


SCREEN DEFINITION _, lir/veT , 

REPEIVE-----PO3 ITEM!QTY 1 DATE3PSLIP3OLDBAL3 VNUM3 VNAME3PART3UM3DE'dC3 VPART3 
NEWBAL30K A -Receive purchase ordersWNPO number: ... item: 

dor number:\\ M .. , . n ' 1 De 

Our part number: Unit oT_m«asur«-\\ 

qrripti on:\\ Vendor part number:\\W\uld balance-_ .. 

SSIntitr received. .SSISQgt l 

,, 3 f]uiL iffL3U3i ™” 5 iiii in iuui?uiJi~Y:v5vl3Y 

17320,53317, 12J3.4435, 4438,2933,J10,2V]12,2Y 
117 711 - 7 73 R 3 7 3 R 3 7 3 7 3 5 3 37 3 12 3 17 3 b4 3 26 3 7 3 2 * *' * 3 3 3 D 2 7 3 o 3 7 3 y 3 7 3 / 3 •«* 3 ~*7 

3121 17334]26:7:2'lh:3Ul5nnnUi:i;PO number nite.,!3«ujr,titY receiv 

! 7 ?:S!^:o372?o!3:!333“322!:a””l0322^522! 1832?" 14322,16333333 
3 3 3 22,23 *“'70 3 75 3 62 3 66 364333333333 57*’“'*“'7 3337 3 b 3 7 3 3 3 3 3 3 3 3 3 2* ■ 3 (R1, ) 3 
D) 3 3 3 3 "I 3 3 3 3 3 ( "FI *■ ) A ^ A MD03MD03MD03D3MDU''F3F3F3F3F3F3f- 3F3F3FJF3F3F3F 

< '*• E X '*• > E**“* _ . — ....... 
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Which PICK-based 
electronic spreadsheet 
should you choose? 

COMPU-SHEET 


You already know the value of 

an electronic spreadsheet. The 
question is which one should you 
choose? The answer is easy. 
COMPU-SHEET. 

In the past nine months, over 250 
end users have chosen COMPU- 
SHEET for their PICK-based 
computer systems. And more 
importantly, after months of 
extensive evaluation and compari¬ 
son, CDI, General Automation 
and Datamedia have selected 
COMPU-SHEET as the best elec¬ 
tronic spreadsheet for their 
customers. Those are pretty 
powerful endorsements, and the 
list is growing every day. 

Why have so many people 
chosen COMPU-SHEET? Just 
compare COMPU-SHEET’s key 
features with any other spread¬ 
sheet program: 

• Very easy to use...no program¬ 
ming experience is needed. 

• Uses simple English-like com¬ 
mands (COPY, MERGE, 
PRINT...) 

• Worksheets may be merged or 
consolidated. The user controls 
the range of locations to be 
merged or consolidated. 


• Formulas may specify retrieval 
of data from other worksheets. 

• Formulas may specify retrieval 
of data from any file in the user’s 
data base (down to the sub-value 
level, if desired). 

• The user may enter a “?” at any 
point to get a “HELP” display. 

• Multiple windows provide for 
viewing various sections of the 
worksheet at one time. 

• The user has the option to control 
the format of any printed reports. 
Any combination of columns 
and rows may be selected. 

• Formulas are written in simple 
algebraic format. Even “IF condi¬ 
tion THEN formulal ELSE 
formula2” is supported. 

• A complete and formatted 
“AUDIT” report is available. 

• Interfaces with “ACCU-PLOT” 
graphics system. Your work¬ 
sheets may be represented as line 
graphs, pie charts, bar graphs, etc. 

• Operates on Microdata, all PICK 
systems, and the Prime Informa¬ 
tion System. 

• And more... 

Plus, Interactive Systems offers 

you complete support after you 

choose COMPU-SHEET. If you 


ever have a question, simply call 
us at (602) 993-3579, and we’ll get 
you a helpful, friendly answer fas t. 

We want you to decide for 

yourself. Ask about our no-risk 
21-day trial period. For information 
and a complete brochure, call 
Interactive Systems today or mail 
the form below. We’re sure you’ll 
choose COMPU-SHEET too. 


INTERACTIVE SYSTEMS 

129 East Voltaire Avenue 
Phoenix, Arizona 85022 
(602)993-3579 



Yes! Please send me 
more information about 
COMPU-SHEET. 


Name_ 

Company_ 

Address __ 

City- 

State_Zip 

Phone( )_ 


COMPU-SHEET is a trademark of Interactive Systems. 
PICK and PICK Systems are trademarks of PICK 
Systems, Irvine, CA. 
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Two Microdata 1 * 1 8000 Systems Available 

Each system equipped with: 

512K MOS memory 
(1) 128 MB Winchester Disk 
(32) Communication Ports 
(1) 1600 BPI Tape Drive 
(1) 300 LPM Printronix Printer 

$59,000 ($55,000 without printer) 

(2) 5750 Communications Terminals also available 

Contact: Jerry Haithcock 

Electronic Engineering Co. 
(216) 526-4350 


PRICED TO SELL 
Complete Microdata™system 
converted to Pick Evolution 

64KB memory • 50MB disk 
8 open ports • 800BPI tape 
300LPM printer • 10MB Marathon disk 
Isolation transformer 

$7,500 

Contact John or Sheldon 
S/C Performance Wholesale 
1530 W. El Segundo Blvd. 

Gardena, CA 90249 
213-770-1100 


FOR SALE 
Microdata™ Reality® 

64KB Memory 
50MB Disk 
800BPI Tape 
16 Ports 
1 CRT Terminal 
1 120CPS Printer 

Call Jerry Buckley at 213-985-2680 


FOR SALE 

Used Microdata™ Equipment 

4 - Series 6000 800 BPI 
tape drives 

6 - Marathon 10 MB disk drives 
10 - Prism® terminals 
2 - Matrix printing terminals 
1 - Matrix printer 

Call 503-222-1977 


wish list 


Users of computer systems should always remember that the 
nice thing about software (besides the fact that it doesn't break 
when you drop it) is that programs ore relatively easy to 
change — no soldering gun is necessary. So just because the 
operating system or the compiler or a system utility happens to 
work (or foil to work) in some particular foshion now, doesn't 
mean it has to always be that way. The next time on inspired 
idea arrives for improving your system, write it down and send 
it to Pragma for publication in the Ulish List. 

The previous 65 Wish List items have been featured in issues 
#1 through M of Pragma, 

66. Prompt Before Tape Tests. Make the standard 
ACCOUNT-SAVE proc prompt for the tape label and account 
name before reading and writing the test patterns on the tape 
(which takes awhile when large records are being used), so that 
the operator doesn’t have to sit and wait for the prompts while 
the tests are being done. 

67. Positioning S/NAME Attribute Headings. S/NAME 
attribute headings in dictionary items are left justified and 
padded on the right with periods. Often these headings are 
more attractive when right justified or centered and padded 
with blanks or other characters. Any such custom heading can 
be constructed by putting the appropriate text in S/NAME, 
but the S/NAME text must always then be readjusted if the 
column width in V/MAX is changed. Provide a mechanism to 
allow centered and right justified attribute headings with 
arbitrary fill that automatically adjust to the current V/MAX, 
in the same way that left justified, period filled S/NAMEs cur¬ 
rently adjust to V/MAX. 

68. Incremental FILE-SAVEs. FILE-SAVEs of large disks 

can easily overflow one tape. This requires having the operator 
mount additional tapes, thereby slowing down the whole pro¬ 
cess and making it less automatic. Also, even though very few 
files may change between FILE-SAVEs, all files (unless they 
are defined with DX or DY pointers), get written to tape every 
time. Allow the system to optionally record which files were 
written to since the last FILE-SAVE. The FILE-SAVE com¬ 
mand could then have an option to only save the files so 
marked. In that way, each FILE-SAVE would only save that 
portion of the system that changed since the last FILE- 
SAVE. Using a system of rotating tapes (say one tape for each 
day of the week), a nightly FILE-SAVE would only have to 
save the files that changed since the previous night, which 
might take very little tape and time. Once a week, a full save of 
all files could be done to restart the cycle and allow the tapes 
to be reused. There should also be a method to conveniently 
restore a system from such a set of tapes, which would be done 
by first restoring from the most recent complete FILE-SAVE 
tape, and then reading and overwriting the data from every re¬ 
maining partial FILE-SAVE tape since then, in chronological 
order. IB 
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NEW FROM INTERACTIVE SYSTEMS 


SCREEN-GEN 



What is 

SCREEN-GEN? 

SCREEN-GEN is a data entry or 
data inquiry processor that can be 
used to develop program applica¬ 
tions such as: order entry, journal 
entry, inventory adjustment, cus¬ 
tomer inquiry, or any other screen- 
related process. 

SCREEN-GEN has a language 
processor similar to ENGLISH or 
ACCESS that works with your data 
dictionaries in defining a screen 
program, its format, prompt and 
function fields, and the file update 
logic. Once generated, these pro¬ 
grams can be run interpretively by 
the system, simply by keying in the 
program name. 

SCREEN-GEN optionally allows 
you to generate a screen program 
into BASIC code. SCREEN-GEN 
generates comprehensive docu¬ 
mentation on each program de¬ 
fined. It also includes a full screen 
editor for maintaining screen pro¬ 
gram definitions once they are 
created, and has a dictionary 


editor for maintaining your data 
dictionaries. 

SCREEN-GEN is easy to use, 
yet is comprehensive in its ap¬ 
proach to solving data processing 
problems. Utilizing multi-valued 
data structures is no problem with 
SCREEN-GEN. You can define any 
number of windows in your screens 
that scroll forward or backward in¬ 
dependently and allow full control 
of your multi-valued data. 

With SCREEN-GEN, you can 
define programs that extend to mul¬ 
tiple screens for data entry and 
update any number of files within 
your database. For customized 
processing, you can even include 
BASIC code statements and 
routines directly into your screen 
definitions that will allow you to 
accomplish in SCREEN-GEN 
what you might have achieved in a 
user-written program. 

SCREEN-GEN is written entirely 
in BASIC; there are no assembly 




City- 
State . 


Phone( )- - j 

SCREEN-GEN is a trademark of Interactive Systems. ENGLISH is a 
trademark of Microdata Corporation, Irvine, CA. ACCESS, PICK and 
PICK Systems are trademarks of PICK Systems, Irvine, CA. 


Company 


language routines 
used and source 
code is supplied to each user. You 
no longer need to be dependent on 
anyone else for the maintenance of 
your system. SCREEN-GEN is 
available for all PICK-compatible 
systems. To learn more about 
SCREEN-GEN, call (602) 993-3579 
or mail the form below to: 

INTERACTIVE SYSTEMS 

129 East Voltaire Avenue 
Phoenix, Arizona 85022 

I’m interested in 
learning more about 
SCREEN-GEN. 


Name. 


SCREEN-GEN is to data entry what ENGLISH is to report generation. 
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50 MB REFLEX I, DISC DRIVES 
50 MB REFLEX I with CONTROLLER 
128 MB REFLEX II. DISC DRIVES (NEW) 
128 MB REFLEX II. with CONTROLLER 
128 K MOS MEMORY BOARDS 
16K CORE MEMORY BOARDS 
8-WAY BOARDS with PORTS. CABLES 
INTELLIGENT 8-WAY BOARDS 
PRISM I CRTS 
PRISM II CRTS 

ADDS VIEWPOINT CRTS (NEW) 

300LPM PRINTRONIX PRINTERS (NEW) 
PRINTER CONTROLLERS with CABLE 
600LPM PRINTRONIX PRINTERS (NEW) 
CORE SYSTEMS 
MOS SYSTEMS 

CALL CHUCK HAAS FOR 
COMPETITIVE PRICES 

BUY-TRADE-SELL 
51 3-528-5400 

PLEASE NOTE OUR NEW TELEPHONE NUMBER 




Proven 
Pick System 
Software 

for 

• Property Management/Real Estate 

• Oil & Gas 


An Introduction 
to ENGLISH® 
Part 4: 

Being Choosy 

The fourth in a series of articles is presented for the 
beginning user of the inquiry and report generation 
language called ENGLISH. Item lists are introduced 
to allow the selection of only certain items for 
output. 

You may have noticed that whenever you LIST a file, the 
display screen will quickly fill up with data and the system 
will wait for you to hit the RETURN key before displaying the 
next page. One way to avoid having to page through long lists 
of items on the screen is to print the report instead of display 
it. If your computer (not your terminal) has a printer, then the 
output of any ENGLISH command you give can be printed at 
the printer instead of displayed at the terminal simply by 
adding the word LPTR to the end of the command. 

Even when you can make printouts, it would still be nice to be 
able to stop the display of items once you have seen enough 
data in a report. This can be accomplished by hitting the 
BREAK key, which will cause an exclamation point (!) prompt 
to appear. Now you can type END and hit RETURN to cause 
the computer to immediately end the report being displayed. 
Usually you can hit BREAK at any time to stop what your 
terminal is doing. Occasionally you may get an asterisk (*) 
prompt instead of an exclamation point, but just treat it the 
same and enter END to stop the output. 

Even with the ability to stop a report, it can still take forever 
to wade through long displays to find only the few items in a 
file that may be of interest. If you know the identifiers 
(remember the unique numbers?) of the items you want to 
display, then enclose the item identifiers in single quotes in 
your command, and the report will then consist of only those 
items. For example, if you want to know the ZIP code for 
customer M719, then you might use a command like LIST 
OUST ‘M719’ ZIP (assuming the customer file is called CUST 
and its dictionary has the word ZIP). 


• Capital Equipment Leasing 

• Staff Scheduling 

• Distribution 

• General Accounting 

from 

CTS Services, Inc. 
214/637-3344 


If you wanted to list all purchase orders numbered less than 
200, having to type 199 item identifiers in a command would 
be unreasonable. Fortunately, you can use relational operators 
to denote ranges of items. The operator EQ means equal, GT 
means greater than, LT means less than, GE means greater 
than or equal to, and NE means not equal to. A command like 
LIST PO LT ‘200’ would list only the purchase orders 
numbered less than 200. 

The words AND and OR can also be used to connect relational 
operators into longer series of tests. For example, the com¬ 
mand LIST SO GE ‘1000’ AND LT ‘2000’ might be used to 
list only those sales orders from #1000 up to but not including 
#2000. What does the command LIST VENDOR GT ‘10’ 
AND LT ‘30’ OR GT ‘40’ AND LT ‘50’ do? Can you tell what 
the command LIST ORDER NE ‘553’ AND NE ‘729’ AND 
NE ‘802’ does? QB 
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ON-LINE 

INTEGRATED 

ADAPTABLE 


PERSONNEL 


LET MADIC HELP YOU CONTROL 
YOUR MANUFACTURING BUSINESS 


MADIC 


[ CORPORATE I 

INVENTORY 1 

' BILLS OF 

■configuration] 

I PLANNING 1 

i CONTROL 1 

t MATERIAL 

I CONTROL J 


f WORK IN ] 

I QUALITY 

[ PURCHASING ] 

[ MARKETING J 

f ACCOUNTS ] 

| PROCESS i 

1 ASSURANCE J 



l PAYABLE J 


V ACCOUNTS f 

FIELD 

I MATERIAL T 

CAPACITY 

COST 

1 RECEIVABLE 1 

SERVICE 

I REQUIREMENTS 1 

PLANNING 

I ACCOUNTING J 


f PROJECT 

f PLANT 

GENERAL I 

[ PAYROLL f 

1 CONTROL 

I MAINTENANCE I 

LEDGER J 



DOLARS 


Tim 


Distributed On-Line Accounting and Reporting System 


The BEST Financial Software for the PICK Operating System 

DELIBERATE SYSTEMS 

3456 Camino Del Rio North • San Diego, CA 92108 

(619) 280-4400 


How Can 
Your Direct 
Mail Flyer 
Reach 
Thousands 
of Pick 
Users for 
Only 340 
Per Name? 

To find out, 
call Pragma today! 
408 - 688-9200 































Converting 
Manual Paint 
to Programs 

A previously published program that generates 
other programs is modified to demonstrate it can 
accept even manually designed input. 

The article Converting Paint to Programs [.Pragma #3, 
February 1983, page 34] input lines of text stored as sub values 
in an item, and generated as output a BASIC program to 
recreate the text. Unfortunately, because the program as¬ 
sumed the Screenpro™ painter would be used to generate the 
input item, many readers ignored the CODE-PAINT 
generator and didn’t realize it would work just as well with in¬ 
put manually created with the editor. In fact, by changing line 
7 in the original program to use CHAR(254), and line 10 to ex¬ 


tract PAINT’s attribute instead of subvalue, the program 
would then accept text stored as attributes, just as humans 
prefer. 

The new version of the program below incorporates those 
changes, and also generates slightly better code, in that the 
STR function is used whenever the string constant being out¬ 
put is a repetitive list of more than six characters. (Consult 
your compiler documentation to determine at exactly what 
length it becomes most efficient for your implementation to 
use STR.) 

The dialog at right demonstrates how the PAINT.TO.CODE 
program is used. First, the user lists an item called FORM, 
which is nothing more than manually entered lines of text 
arranged in the form desired by the user. Next, 
PAINT.TO.CODE is executed and it outputs a new BASIC 
program that includes all the PRINT statements (41 in this 
example) necessary to generate the form. The name of the pro¬ 
gram is created by prefixing “BASIC.” to the input item 
name. The new program is then compiled and RUN to verify it 
indeed outputs a duplicate of the manual form. The program 
can now be edited to turn it into a final production program 
that prints actual values on the form, but at least most of the 
mundane work of generating PRINT statements has already 
been automatically done. [g 


001 PRINT --DATA FILE' : 

002 INPUT FILE.NAME 

003 OPEN FILE. NAME ELSE STOP •"NO SUCH FILE!" 

004 PRINT "ITEM" : 

005 INPUT ID 

006 READ PAINT FROM ID ELSE STOP "NO PAINT!"' 

007 ROWS « COUNT(PAINT, CHAR(254))+l 
008 CODE = " •" 

009 FOR LINE = 1 TO ROWS 
010 TEXT = PAINTCLINE> 

Oil IF TEXT # THEN 
012 LOOP 

013 COL = 1 

014 LOOP UNTIL TEXTCCOL, 13 # 

015 CHARS = TEXT!1,COL-1 3 

016 GOSUB 100 ;* Generate PRINT 

017 NON.BLANK.POS = COL 

018 LOOP 

019 COL = CQL+1 

020 DELIMITER = TEXTCCOL, 23 

021 UNTIL (DELIMITER = "' ") OR (DELIMITER 

022 CHARS = TEXTCNON.BLANK.POS, 

023 GOSUB 100 5* Generate PRINT 

024 WHILE DELIMITER # "' " DO 

025 TEXT = TEXTCCOL, LEN(TEXT)-COL+13 

026 REPEAT 

027 END 

028 CODEC-1> = "PRINT" 

029 NEXT LINE 
030 CODEC-1> = "STOP" 

031 CODEC-1> = "END" 

032 WRITE CODE ON "BASIC." : ID 
033 STOP 
034 * 

035 100 * Generate PRINT 
036 LENGTH * LEN(CHARS) 

037 IF LENGTH C= 0 THEN RETURN 
038 FIRST.CHAR = CHARSC1, 13 
039 IF (COUNT(CHARS, FIRST.CHAR) = 

040 CHARS = "STR("" : FIRST.CHAR 
041 END ELSE CHARS = s CHARS 

042 CODEC-1> a "PRINT "' s CHARS : 

043 RETURN 
044 # 

045 END 


DO COL * COL+1 REPEAT 


"• ") DO REPEAT 
COL-NON.BLANK.POS3 


PAINT.TO.CODE 

PROGRAM 

GENERATOR 


LENGTH) 


: 


AND (LENGTH > 
: LENGTH s "' > 


6) THEN 


28 


PRAGMA • ISSUE 5 • AUGUST, 1983 • 207 Granada Drive • Aptos, CA 95003 






ED BP FORK 

020 PRINT " " : 

TOP 

021 PRINT *!* : 

.L22 

022 PRINT 

001 ^-h 

023 PRINT STRC=", 35) : 

002 i ORDER NUMBER: ! 

024 PRINT 

003 i - ¥ 

025 PRINT STRC ", 17) : 

004 

026 PRINT "SUBTOTAL:" : 

005 

027 PRINT 

006 ITEM ! PART NUMBER ! QTY ! TOT COST 

028 PRINT STRC ", 22) : 

007 

029 PRINT "TAX:" : 

006 : : : 

030 PRINT 

009 =« n5s =rr= s=aa = ; === 8 == s ^ 

031 PRINT STRC* ", 18) : 

010 SUBTOTAL: 

032 PRINT *+-C : 

Oil TAX: 

033 PRINT 

012 i- ¥ 

034 PRINT STRC* ", 18) : 

013 : TOTAL: ! 

035 PRINT *! TOTAL:" s 

014 i -+ 

036 PRINT STRC ", 8) : 

EOF 14 

037 PRINT *!" : 

.FI 

038 PRINT 

''FORM'' FILED. 

039 PRINT STRC ", 18) : 


040 PRINT *4-C : 

:RUN BP PAINT.TO.CODE 

041 PRINT 

DATA FILE7BP 

042 STOP 

ITEM7F0RM 

043 END 

:CT BP BASIC.FORM 



:BASIC BP BASIC.FORM 


LINE 43 [BO] COMPILATION COMPLETED 

BASIC.FORH 


001 PRINT *<-t* : 


002 PRINT 


003 PRINT "! ORDER NUMBER:" : 

:RUN BP BASIC.FORM 

004 PRINT STR(" ", 19) : 

i --+ 

005 PRINT *!* : 

! ORDER NUMBER: i 

006 PRINT 

+- 

007 PRINT "4-f : 


008 PRINT 


009 PRINT 

ITEM 1 PART NUMBER 1 QTY ! TOT COST 

010 PRINT STRC="» 35) : 


Oil PRINT 

1 1 1 

1 1 » 

012 PRINT "ITEM ! PART NUMBER 1 QTY ! TOT COST" : 


013 PRINT 

SUBTOTAL: 

014 PRINT STRC=", 35) : 

TAX: 

015 PRINT 

H-+ 

016 PRINT " " : 

i TOTAL: : 

017 PRINT "!" : 

+-1" 

018 PRINT STRC ", 13) : 


019 PRINT "1" : 

• 

• 


© 

INVOKING PAINT.TO.CODE TO G 

iENERATE A FORMS PROGRAM 
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local 

user 

groups 

Toronto 

The Canadian Pick Users (also known as CPU) is a group 
formed four years ago that now consists of approximately fif¬ 
ty members, representing Microdata™, ADDS, Prime, 
Ultimate and Evolution installations. The group meets six 
times a year to hear a guest speaker and to discuss a technical 
topic at each meeting. Six members form an Executive Board 
that meets once a month to decide when and where to hold 
meetings and who will be the guest speaker. The Annual 
General Meeting will be a luncheon September 14th at the 
Prince Hotel on York Mills Road in Don Mills, Ontario. That 
session will include the voting for a new slate of Executive 
members. Users interested in more information about the 
CPU should contact Secretary Marie Carter at Box 876, 
Postal Station B, Willowdale ON, M2K 2R1. 

Washington DC 

The National Capital Area Microdata Users Group meets once 
a month for dinner and a guest speaker presentation. The June 
meeting featured a talk on the psychology of user interaction 
and satisfaction with computer systems, by Kent Norman of 
the Psychology Department of the University of Maryland. 
The July meeting included Monisa Trice of Drs. Groover, 
Christie and Merritt, who shared her experiences regarding 
the selection process that led to the purchase of a Sequel™. 
That meeting also featured a description of the Sequel from a 
hardware point of view by Todd Smoot, a former Microdata 
customer engineer, and comparisons of the Sequel with Reali¬ 
ty, Evolution, Ultimate, and other Pick machines. Interested 
users should contact Stan Seidlitz, Continental Computer Ser¬ 
vices, 9489 Silver King Court, Fairfax, VA 22031 or telephone 
703-273-0816. 

Northern California 

The Northern California Pick Users (NCPU) has been a busy 
group during the past quarter, having met in May for a 
presentation by Cliff Diehl of Systems Management on the in¬ 
stallation and use of MRP systems, followed by the June 
meeting where Roger Harpel of Cosmos gave a demonstration 
of the Revelation system for the IBM PC, and most recently 
at a gathering in July that featured a presentation on forms 
management. The NCPU newsletter is consistently the 
longest and most newsy user group publication received at 
Pragma. The May issue described the claims of one member 
that there are no less than seventeen different Pick machine 
implementations (twelve “official” and five others counted 
but not described). The August meeting is scheduled to be 
held in San Francisco and will feature a presentation on stress 


Where ore (he local user groups and what ore they up 
to? This regular department is designed to help our 
readers stay aware and informed of nearby groups and 
activities for computer users. 

Why isn't YOUR user group mentioned below? To keep us 
informed of your group's activities and to appear in this 
department in future issues, keep Pragma on your mail¬ 
ing list and send us your group's newsletterl 


management, while the September meeting will have Bill 
Walsh of Pick Systems as guest speaker. Contact Secretary 
Lisa Levsen for more information by writing Box 6759, 
Oakland, CA 94603 or calling 415-632-0977. 

Southern California 

The California Data Base Management Association (CDBMA) 
rated its June outdoor meeting and dinner dance a “smashing 
success”. The gathering, held at San Diego State University, 
featured a program on application generators by Dick 
Schmoekel of the Software Express. The barbecue steak din¬ 
ner and drinks were free to all new members. The July meeting 
in Irvine featured a presentation on managing careers, and 
also included a technical session by Alan Thompson of Hud¬ 
son Oxygen on string manipulation using dynamic arrays. The 
annual Member of the Year Award will be presented at the 
August meeting in Newport Beach. Linda Ristow is the 
Secretary of this group, which can be reached by writing 
CDBMA, 9740 Appaloosa Road #210, San Diego, CA 92131 or 
by calling 619-578-3152. 

Arizona 

Our most recent letter from the Pick Users Group of Arizona 
reports on the April meeting which featured guest speakers 
Roger Brown, a Microdata region manager, and two of his co¬ 
workers, Fred Crow and Gary Monroe. Brown discussed the 
structure of Microdata’s organization and the new divisions 
and developments of the past year. Technical questions were 
fielded by Crow and Monroe. The April newsletter included a 
copy of a Microdata memo responding to questions about any 
Microdata plans to offer power conditioning equipment, and 
on the reliability of some diagnostic programs, which couldn’t 
be answered at the meeting. For more information, contact 
Secretary Jodi Hilgenberg, Communication Skill Builders, 
Box 42050, Tucson, AZ 85733. 

Delaware Valley 

The May meeting of the Delaware Valley Data Base Manage¬ 
ment Association featured a presentation on the ADDS Men¬ 
tor by Judd Van Dervort of Keystone Information Systems 
and a discussion on system security led by Jim Carroll and 
Karl Carapellotti. The last meeting for the summer season was 
held in June and included panel discussions on user developed 
software, by George McGann and Bob Anderson, and on effi¬ 
cient programming, by Jeff White and Steve Love. For infor¬ 
mation on becoming a member when meetings resume, contact 
President Jim Cates, Pars Manufacturing, Box 149, Ambler, 
PA 19002. E 
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PRODUCTIVITY; 

How is it measured by manufacturers? 

The MRP Software industry measures it as: 


CAPABILITY 


PRICE 


R.S.D. Inc. 

13333 N.E. Bel-Red Road 
Bellevue, WA 98004 
(206) 451-0404 


Sales Order Processing 
Sales Analysis 

Invoicing 

Bills of Material 

Master Scheduling 
Inventory Transactions 
MRP 

Scheduled Receipts 
Capacity Planning/ 
Routing 

Accounts Receivable 
Accounts Payable 

Payroll 

Cost 

General Ledger 

Purchase Order Control 

Budgeting 

Shop Floor Control 

Fixed Assets 



$9995 


Interested? 
Contact: 
Pat Carey 


Some New 
Subscribers 

David Carlson 
PIA of New England 
Hopkinton, MA 

Henry Stone 

Connecticut Underwriters Inc. 
Portland, CT 

Kenneth R. Davis 
Copper Cellar Corp. 
Knoxville, TN 

Don Oltmans 
Oltmans Construction Co. 
Monterey Park, CA 

Karen Stine 
Oryx Press 
Phoenix, AZ 

Gerald A. Saunders 
Gerald Saunders Systems Ltd. 
Richmond, VA 


PRO:MAN, PROductivity for MANufacturing is an integrated, on-line, 
net change, closed-loop MRP II system with complete financials avail¬ 
able on PICK/OS computers (IBM, DEC, Honeywell, Microdata, Altos, 
etc.) 



Nat/ona/ Customer Engineering, Inc 

Computer Maintenance and Consulting 


COMPUTER MAINTENANCE 


NATIONAL CUSTOMER ENGINEERING, INC. 
P.O.BOX 1260 
CORONADO , CALIF. 92118 





















A Program 
that Reports 
File Pointer 
Locations 


A simple but convenient utility program for 
reporting the location and equivalence of file 
dictionary and data pointers is presented. 


During software development and maintenance, a program¬ 
mer will frequently be logged onto an account and be thinking 
of a name that supposedly identifies a file and will suddenly 
want to know the answer to one or more of the following 
related questions: 

1. Is the name in the Master Dictionary? 

2. If so, is the item the name of a file? 

3. If so, is the file actually defined in this account (via a 
D-pointer item, as opposed to a Q-pointer that acts as a 
synonym for a file actually defined in some other account)? 

4. If so, does the file have both a dictionary and a DL/ID 
pointer? 

5. If so, does DL/ID point to and equal the dictionary? 

6. In any case, what are the base, modulo and separation in 
the file’s D-pointers? 

The program below will answer all of the above questions in 
one simple step either by successfully locating the necessary 
D-pointers and reporting the base, modulo and separation for 
the file, or by reporting failure instead. The proc 


LOC.FILE 
001 PON 

002 HRUN BP LOC.FILE 
003 P 


should be defined in the Master Dictionary so that the pro¬ 
gram can be invoked as a verb by entering LOC.FILE follow¬ 
ed by the suspected file name. 

E 


OOl 

002 

003 

004 

OPEN "MD" ELSE 

PRINT "MD not found!" 

STOP 

END 

LOC.FILE 

005 

006 

PROCREAD COMMAND ELSE 

PRINT "Use LOC.FILE command!" 

PROGRAM 

007 

STOP 

008 

009 

END 

FILE = CGMMAND<2> 

LISTING 

010 

READ DITEM FROM FILE ELSE DITEM = "" 

Oil 

IF DITEM<1> = "Q" THEN 


012 

PRINT FILE!" is a Q-pointer!" 


013 

STOP 


014 

END 


015 

OPEN "DICT", FILE ELSE 


016 

PRINT FILE!" is not a file!" 


017 

STOP 


018 

END 


019 

BASE1 = DITEM<2> 


020 

MODI = DITEM<3> 


021 

SEP1 = DITEM<4> 


022 

READ DITEM FROM "DL/ID" ELSE DITEM = 

if ii 

023 

BASE2 == DITEM<2> 


024 

M0D2 = DITEM<3> 


025 

SEP2 = DITEM<4> 


026 

IF (BASE 1 =BASE2) AND (MQD1==M0D2> AND 

<SEP1=SEP2> THEN 

027 

PRINT FILE!" DICT & DATA @ ":BASE1: 

" x " ! MOD1:" x ":SEP1 

028 

END ELSE 

029 

PRINT FILE!" DICT @ ":BASE1:" x 

"!MODI ! " x " : SEP1 

030 

IF BASE2 # "" THEN 

031 

PRINT FILE!" DATA @ ":BASE2:" 

x "!MQD2!" x " ! SEP2 

032 

END 

033 

END 


034 

STOP 


035 

END 
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s CT 

MD PRINT.MEMOS 



PRINT.MEMOS 


001 

PQN 


002 

HSELECT EMPLOYEES 


003 

STON 


004 

HPQ-SELECT 1 


005 

P 


006 

100 MV &1 ! 1 


007 

IF # &1 X 


008 

FB (EMPLOYEES ?<1) 


009 

GO 100 


010 

HRUNOFF DOC MEMO 


Oil 

STON 


012 

MV #1 &1 


013 

H< 


014 

P 


015 

GO 100 


5 CT 

EMPLOYEES * 



498 


001 

SUSAN WATERS 


002 

PAYROLL 



726 


001 

LESLIE FORTUNA 


002 

ORDER ENTRY 


5 CT 

DOC MEMO 



MEMO 


001 

.LINE LENGTH 30 


002 

. bk 2 


003 

October 10, 1983 


004 



005 

To: 


006 

.INPUT 


007 



008 

The location of the annual 

009 

company Halloween party has 

010 

been changed to... 


SPRINT.MEMOS 


2 

ITEMS SELECTED. 


October 10 * 1983 



To: SUSAN WATERS 



The location of 

the 

annual company Hal 1oween 

party 

has 

been changed to... 


October 10, 1983 



To: LESLIE FORTUNA 



The location of 

the 

annual company Hal 1 ouieen 

party 

has 

» 

been changed to... 


» 




command 

files 

_ 

Boiler Plate 
Processing 
with Runoff™ 

Customized copies of a Runoff document can be 
created even when .READNEXT commands are 
unavailable. 

Some versions of Runoff include a .READNEXT command 
specifically designed to allow custom text to be inserted into 
document items, while other versions of Runoff, such as on 
Microdata™ machines, do not support a .READNEXT com¬ 
mand. But Microdata computers can still generate multiple 
copies of a Runoff document, with each copy containing a mix¬ 
ture of unique text, through the use of .INPUT commands and 
careful proc programming. 

The dialog at left shows how one copy of a standard memo can 
be output any number of times, with each copy of the memo 
uniquely addressed to a different employee name. In this ex¬ 
ample, the user first lists the PRINT.MEMOS proc and sees 
that it SELECTS all items in an EMPLOYEES file and does a 
RUNOFF of an item called MEMO in the DOC file for each 
employee. The user then inspects the EMPLOYEES file and 
finds two items (although there could be any number of items) 
with the employee’s name in attribute one of each item. In¬ 
spection of the MEMO item reveals an .INPUT command im¬ 
bedded in the text at the point where the addressee’s name is 
desired. Finally, the user executes the PRINT.MEMOS proc 
and sees that one copy is output and addressed to each 
employee. 

The proc works by MVing (at line 12) the first attribute of each 
SELECTed item into the secondary output buffer so that the 
.INPUT command will take the data from there instead of 
prompting the operator. Note that the MV could just as easily 
work with any attribute number, and that any number of MVs 
(along with a corresponding number of .INPUTs) could be 
used, allowing each output document to have any number of 
custom lines, such as a complete address with a street, city, 
state and ZIP to appear with each name. r^i 
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TRY IT, YOU’LL LIKE IT 

It’s not easy selling software. First you write it, make sure it all works correctly, document it to a fare-thee-well, and make all 
the changes your initial users want. When you think you have the whole thing just the way you want it, you find the one last 
bug that makes it virtually unusable. You go back to all your beta test sites and patch your software so that now you’re sure it 
works correctly. After you’ve done all this you take the thing to market. 

You sell three copies. 


ENTER THE KID 

What you need is better marketing. Marketing software is harder than writing it. It’s a young man’s game. You know this 
because of all the fresh young faces you’ve seen in the marketing departments of all the companies you’ve worked for. 

So you get yourself a kid. 

Our kid is clear-eyed, enthusiastic, and fresh out of business school. He’s trained and ready to step in as marketing director 
and sell thousands of copies of our software. Actually, we were hoping to sell about ten copies this month, but, since we’re 
paying this kid, we might as well listen to him. 

THE KID LIKES VOLUME 

The kid says the name of the game is volume. 

“You have some good products here,” the kid says. “You send people a tape, it takes ten minutes to install, and it works. 
Most commercial software won’t do that. You ought to get this stuff out to as many people as you can.” 

THE KID GOES FOR IT 

“What we’re going to do is make it much easier for people to try the FILE-SIZING TOOL,” the kid said. 

“How are we going to do that?” we asked. 

“Easy,” says the kid. “We’ll give it away.” 

“Great,” we said. “Let’s make up in volume what we lose on each individual sale.” 

“Listen. What we’re going to do is let people try the FILE-SIZING TOOL for free. We’ll give it to them for thirty days and if 
they like it, they’ll buy it. Eighty percent of the people who try it now wind up buying it.” 

“Eighty percent, huh? How do you know that?” 

“Market research. It’s something I learned in school.” 

“Oh.” 

GENERATION RESEARCH GOES FOR IT 

Fill in the coupon, sign and return the license agreement that we send you, and we’ll send you a FILE-SIZING TOOL you can 
use free for thirty days. This offer is good only on the FILE-SIZING TOOL and only through September of 1983. You can 
look at our other products for thirty days too but they’ll cost you our usual $25 deposit. Of course, the deposit is refundable if 
you return the tape. 


THE GENERATION RESEARCH LINE 

We sell three products: The FILE-SIZING TOOL resizes all files on your Pick machine quickly and accurately. The FILE¬ 
SIZING TOOL costs $475. ELECTRONIC MAIL gives users the ability to send, receive, and print letters. Try ELECTRONIC 
MAIL, and take control of corporate communications costs. ELECTRONIC MAIL costs $999.00. PROGRAMMING 
TOOLS saves programmers valuable time in system development by providing advanced diagnostics for writing BASIC 
programs. PROGRAMMING TOOLS costs $799. 

All Generation Research software products run on all ADDS MENTOR, HONEYWELL ULTIMATE, and MICRODATA 
computers. 


OK kid, take your shot. 

Send me a tape. 

Company Name:___ 

Address: __ 

City:---State:_Zip 

Attention: __ 

Phone: (_) __ 


Machine (check one) Software (check one) 

□ Adds □ File-Sizing Tool 

□ Honeywell □ Electronic Mail 

□ Microdata □ Programming Tools 

Serial number if Microdata_ 

Tape drive (check one) 

□ 800 BPI 

□ 1600 BPI 


















The following query was originally published with no available 
answer in Pragma #2, page 31. 

7. For reasons our customer engineer cannot explain, he has 
been taught to use a verb he calls CHOP before running the 
various ATP diagnostics. He manually creates the verb with 
the editor, placing a P in attribute one, and 2118 in attribute 
two. Also, he has been taught to enter six zeroes with the 
debugger at 280.135;3 when running the BLAST diagnostic 
under the 4.1 release. What does CHOP do, and why is the 
BLAST patch necessary? 

The CHOP verb is used to reduce the overflow table in the 
case of a large disk. In a way it is self-defeating because using 
CHOP means the disk will not be tested at full capacity. The 
entry patched for BLAST is a Branch and Stack Location 
subroutine call to SLEEP, which would cause BLAST to 
“hang”. By zeroing the branch instruction, BLAST never 
tries to SLEEP and will execute normally. [Answer submitted 
by Ken Baker ; ADP Network Services, Dallas, TXJ 

Of the 24 Queries that have been featured in issues #1 through 
#4, seven now remain unanswered, 

25. What is the function of the TCL command EED? I in¬ 
advertently entered EED instead of ED when modifying a 
BASIC program and ended up with all sorts of control 
characters in my code after it was filed. To avoid this problem 
I have deleted EED from the Master Dictionary. [Submitted 
by Brian C. Stone , CALPAC Inc., Los Angeles, CA] 

The EED (or EEDIT) verb works just like the normal editor, 
except that it “compresses” items as they are filed in order to 
save disk space. Compression is accomplished by replacing 
any sequence of three or more blanks or asterisks in the text 
with a shorter string that includes a control character and a 
count. Once you have filed an item with EED, you should use 
that verb again for future edits, since the normal ED verb 
doesn’t recognize compression codes and just displays them 
as control characters, making the item appear garbaged. The 
EBASIC verb can be used to compile compressed items, but 
the normal BASIC verb will treat all of those embedded con¬ 
trol characters as syntax errors. The COPY verb will copy 
compressed items without complaining and leave them com¬ 
pressed. Use ECOPY to uncompress items. Note that these 
verbs are all briefly described in the Programmer’s Reference 
Manual. A test that did an EED on a file of 274 different pro¬ 
grams compressed each item an average of 15%, but don’t 
assume an equal amount of disk space then became available, 
because the disk is allocated in frames of 512 bytes, and an 
item that is 800 bytes long and occupies two frames, for exam¬ 
ple, can still tie up two frames even when compressed to, say, 
600 bytes. 


queries 



• THE SIDEKICK# 

Microcomputer that talks to your Microdata 



Now a desktop microcomputer 
can communicate with your Microdata REALITY 
via the standard PRISM port. 


USE THE FILE TRANSFER MODE TO: 


• PASS INFORMATION FROM MICRODATA FILES TO A FULL-FLEDGED 
WORK PROCESSOR SUCH AS WORDSTAR . 


• SUPPORT REMOTE DATA ENTRY WITH FULL DATA VALIDATING AND 
SCREEN FORMATTING LOGIC. DIAL UP THE HOST AND TRANSMIT 
FILES PERIODICALLY. 

• PERFORM A VARIETY OF TELECOMMUNICATIONS FUNCTIONS BY 
TRANSFERRING FILES TO/FROM THE MICRODATA AND USING THE 
PROGRAMMABLE PORTS ON THE MICROCOMPUTER. 

USE THE INTERACTIVE MODE TO: 

• LIGHTEN THE LOAD ON YOUR MICRODATA BY DISTRIBUTING PRO¬ 
CESSING WHILE STILL PERMITTING INQUIRY AND UPDATING OF 
MICRODATA FILES. 

• PROVIDE MULTIPLE FUNCTIONS ON ONE PRISM® PORT. ONE MICRO¬ 
COMPUTER CAN ACT AS A PRISM®, LOG TRANSACTIONS TO A FLOP¬ 
PY DISK, AND DRIVE A PRINTER. 

Programs are presently available for Televideo and 
Intertec Superbrain® . Others will be developed 
on request. 

TURNKEY HARDWARE/SOFTWARE 
PACKAGES AVAILABLE. 

Ben Ansbacher 
AnsData Associates 
P.O. Box 2598 

Burlington, N.C. 27216-2598 
800-334-6823 or 919-227-0123 

PRISM and REALITY are trademarks of Microdata Corp. 

WordStar is a trademark of MicroPro International Corp. 

Superbrain is a trademark of Intertec Data Systems Corp. 




FIXED ASSET/PREPAID EXPENSE 
ACCOUNTING MODULE 

By Diogenes Computer Systems, Inc. 
Specialists — Properties Management 
Real Estate Construction 

* Easy to use 

* Hardcopy Validation/Backup 

* Flexible Accounting Periods 

* Book, Tax and State Calculations 

* Supports all IRS Approved Methods 

* 2 Years of Proven Reliability 

* Built in Security 

* Complete User and Program Documentation 

* Stand-Alone or Integrate with your G/L 

* Includes 1981 Economic Recovery Tax Act 

* Recapture Calculated Automatically 

* Depreciation Forecasting Module 

* Demonstrations Available in New York 
Metropolitan Area 

AFFORDABLY PRICED AT $2500.00 

Integration and Implementation Available 

For More Information — 

CaU - (201) 764-7282 8 A.M.-8 P.M. 

Write — Diogenes Computer Systems, Inc. 

P.O. Box 667 

Highland Lakes, N.J. 07422 
Software Licensing Inquiries Invited 
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SYSMAP 
Part 5: 
Automation 

This final article in a series on the use of cross- 
references discusses approaches to making 
SYSMAP a fully automated system. 

SYSMAP is like a blank ledger page that requires the atten¬ 
tion of a knowledgeable accountant to insure all of the rows 
and columns will be filled in with accurate, meaningful data. 
When a completely new software system is being written from 
scratch, SYSMAP files can be kept up to date as each piece of 
software is developed, although it generally must be an ex¬ 
perienced programmer who scans each proc and program to 
decide what uses what. If a huge, undocumented set of soft¬ 
ware already exists, the tedious job of scanning all code to 
decide what to input to SYSMAP sounds particularly unin¬ 
viting. What can be done so that SYSMAP files are 
automatically maintained? 

One approach is to write programs that scan other programs 
to find references and automatically record them in the ap¬ 
propriate SYSMAP file. For example, a program could be 
written to scan procs and generate an item for SYSMAP’s XP 
file anytime it finds a line in parentheses of the form 
(PROCLIB CALL), since one proc is obviously invoking 
another. There would have to be programs to scan procs, other 
programs and dictionary words, although the scanners 
wouldn’t have to be 100% perfect, since their output could 
always be reviewed and manually adjusted. After all, it’s fair¬ 
ly easy to write a program that recognizes READV X FROM 
I, 1 reads attribute one, but what about READV X FROM I, 
Y? 

Using programs to scan other programs is better than a purely 
manual approach, but the burden of providing such programs 
is still on the user. A better solution is to design the compiler 
and other translators to automatically provide the cross- 
reference files. This puts the burden on the vendor, but most 
system translator programs are already designed to scan 
other programs. For example, the compiler generates a type of 
cross-reference now. If it and the other languages generated 
slightly more comprehensive data in the format of SYSMAP 
files, it would be impossible to write software that wasn't 
automatically and completely cross-referenced by the system! 
A system that automatically records the interactions of soft¬ 
ware also gains the ability to perform other spectacular feats 
to free the programmer from having to maintain the system. 
For example, imagine being able to indicate by a simple edit 
procedure that the dictionary word BALANCE for attribute 
five of a file should be deleted, along with deleting the at¬ 
tribute from all items in the file. Imagine having the system: 
(1) automatically recognize from its own cross-references that 
all attributes from six on must therefore be renumbered and 
that all programs that refer to those attributes must be ad¬ 
justed and recompiled, and (2) then does it! That would be a 
true data base management system. 


I the 

computer 
l room 

Tape Types 

The different ways in which files can be stored on 
magnetic tapes are described. 

What are the different types of tapes? In other words, what 
are the different ways in which files can be saved on a tape? 
The primary methods for Pick machines are: 

□ FILE-SAVE tapes. These tapes are generated by the 
FILE-SAVE proc, which saves on a tape a copy of every file 
on the disk. Since the complete contents of the disk is saved, 
making a FILE-SAVE tape is a good way to make a backup 
copy of all files, in case something should happen to the disk or 
to the computer causing data to be lost. A system with dam¬ 
aged or missing data can read back all files from a FILE-SAVE 
tape, thereby restoring the system and data to the state they 
were in at the time the tape was created. Even individual ac¬ 
counts, files or file items can be selectively restored from a 
FILE-SAVE tape. Also, the tapes can generally be loaded on 
other, similar models of the computer that wrote the tape. 

□ BINARY-SAVE tapes. Like FILE-SAVE tapes, these con¬ 
tain a copy of all data on the disk, but are generated in such a 
way that individual accounts, files or file items cannot be 
selectively restored, and only the machine that created the 
tape can load it. Making a BINARY-SAVE tape is intended to 
be a quicker method of backing up a complete disk. See Query 
til [Pragma til, August 1982, page 32] for a more detailed com¬ 
parison of the two methods. 

□ ACCOUNT-SAVE tapes. These are generated with the 
ACCOUNT-SAVE proc and are structured very much like a 
FILE-SAVE tape, but only contain the files found in one 
chosen account on the system. Data can be selectively 
restored from these tapes just like a FILE-SAVE tape. If all of 
the data defined in one account, but only that account, needs 
to be backed up, this is the kind of tape to create. 

□ T-DUMP tapes. Each file on a T-DUMP tape contains items 
copied from a file on disk with the T-DUMP verb. A T-LOAD 
command can read the tape and load the items back into any 
other file. The T-DUMP and T-LOAD verbs support WITH 
clauses, so very selective dumping and loading can be done. 
This kind of tape is frequently used for mailing individual files 
or programs between computers. 

□ Miscellaneous tapes. Tapes can also be written by the 
spooler or by a BASIC program that uses a WRITET state¬ 
ment, but these are fairly esoteric applications that are rarely, 
if ever, used at most installations. 

E 
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Z-MAIL 


CAUTION: 


Reading this 
could cause you 
to acquire 
the competitive 
edge in office 
communications 


Z-Mail is the ultimate 
electronic mail package. 

It allows the user to 
transmit messages in an 
automated office network, 
to another office system 
down the hall or halfway 
around the world. 

In today’s automated 
office, Z-Mail provides 
the tool to obtain the 
competitive edge. Dis¬ 
cover Z-Mail before your 
competition does. 

Z-Mail offers the future 
in electronic mail commu¬ 
nications today! 


Write or call today for 
detailed information on Z-Mail. 




IBM’s Personal Computer 
Talks to Your Minicomputer Via 




You can connect an IBM PC equipped with R/NET 
to your Reality, Ultimate, Mentor, Evolution, or Infor¬ 
mation relational data base machine. R/NET 
executes your existing software without modifica¬ 
tion. In addition to supporting cursor control for 
your interactive programs, you can either print the 
current screen contents or engage the printer for 
printing a multi-page report. And under operator or 
program control, R/NET will capture data sent to 
the IBM PC on its own disk storage. 

Now you can let VisiCalc do your financial model¬ 
ing. Execute EasyWriter on your dedicated 
microcomputer for your wordprocessing require¬ 
ments. Your PC is multi-lingual, i.e., BASIC, Cobol, 
Pascal, Forth, FORTRAN, C, and the 8086 Macro 
Assembler. Application packages like General 
Ledger, Accounts Receivable, Accounts Payable, 
Inventory Control, Job Costing, and Payroll are 
available today. 

R/NET is distributed on its own diskette and comes 
complete with documentation manual and inter¬ 
face cable for $200. A typical PC configuration 
retails for $3175. Make your next terminal an IBM 
Personal Computer, the most respected name in 
the industry. 


cosmos 


Direct your orders to: Cosmos Inc., 

Box AH, 123 Ferntree Dr. West, Morton, WA 98356 
(206) 496-5974 • (206) 226-9362 for 24 hour answering 

Think Relational 


• VisiCalc TM of VisiCorp • EasyWriter TM of Information Unlimited Software Inc. • R/NET TM of Cosmos Inc. • IBM TM of International 
Business Machines • Ultimate TM of Ultimate Corp. • Mentor TM of Applied Digital Data Systems • Evolution TM of Evolution Corp. • In 
formation TM of Prime • Reality TM of Microdata Corp. 
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WKRPik 


v 


FREE! 


(No Obligation) 


On Line Review of Pick® 


Systems , Parts , Peripherals 

For Sale 

For 300 or 1200 Baud (Vadic or Bell) 

f'l; i. 513 - 232-5801 
L ' ,ai * 513 - 232-5802 

LOGON to*. WKRPIK (No Password) 


Menu-Driven Software Will Let You: 

1 Review FOR SALE Ads 

2 Request Follow-Up 

3 List Your Equipment With Mike 

4 Add Your Name to Our Mail List 

5 Other 



Cincinnati 




513 - 232-5000 


(Pick, is this better?) 


r 
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letters 

_ 

Praise and a Correction from Prime 

Let me congratulate you on your outstanding issue #4, as well 
as the previous issues. The material you presented was, in our 
opinion, very accurate. One small point. Prime Information, 
having been world marketed since 1978, has a worldwide in¬ 
stalled base of over 1,100 systems as of this date, not 400 as 
listed [A Survey of Hardware that Supports Pick-Style Soft¬ 
ware , May 1983, page 29], Again, congratulations! 

Harold S. Rhodes 
Prime Computer Inc. 

Natick MA 

We rechecked the original survey questionnaire returned by 
Prime and found that only 400 machines were indeed claimed 
Perhaps 400 is the domestic figure? Prime has now made it 
clear that 1,100 worldwide is accurate, but has declined to 
describe how domestic and foreign sites divide that figure. 

— Editors 


How Many Users Are There? And Can They Exponentiate? 

In the Survey Says article in your issue #4 of May, 1983 [page 
3] you note that almost all of your survey replies were received 
from Microdata users. I must confess that I find it difficult to 
accept your argument that this is due to the overwhelming 
balance being in favor of Microdata sites. While it is true that 
Microdata still claims a large number of Pick-based sites, it is 
difficult to ignore the fact that among Ultimate, ADDS, 
Prime, Evolution and Intertechnique alone, there must be well 
over 3,000 systems, worldwide. 

I would instead suggest that the reason for the apparent lack 
of response is that your publication fails to adequately ad¬ 
dress the interest areas of this growing Pick community. For 
example, your Wish List section seems to be heavily 
Microdata oriented since it consistently describes facilities 
which already exist on “standard” Pick implementations. In 
addition, many of the technical articles which appear either ig¬ 
nore the fact that there is a better way of doing things using 
the other Pick systems, or present a solution using only 
Microdata syntax and features (such as PQN procs and 
Screenpro), thus eliminating their usefulness for other possi¬ 
ble users. 

I should also note that I find consistent technical inaccuracies 
in Pragma. For example, in your recent issue which compares 
features [A Comparison of BASIC Implementations, May 
1983, page 18], you note that there is no exponentiation 


If you use q Pick system, Pragma wants (o hear from you. 
Have you developed applications of interest to other 
users? Do you plan to acquire new hardware? UJhat 
features would you like to see in Pragma? Are you active 
in any type of user group organization? Write Pragma 
today. All letters to the €ditors ore welcome, and os 
many os possible will be published in the Letters Deport¬ 
ment in every issue. 


operator on either the ADDS or the Microdata systems. This 
is not, in fact, the case. Although the precision of these 
operators is limited, they are available on both systems. This 
kind of carelessness would tend to make a user suspicious 
about the accuracy of such articles. 

In closing, I should say that I feel that Pragma is a good idea, 
and that with some refining and a greater amount of attention 
to the rest of the Pick community, it could be a very effective 
forum for communication within this group. 

Joel A. Nirenberg 

KTS Business Systems Inc. 

Toronto ON 

Unfortunately, Pragma is not (yet!) reaching every user in the 
world, otherwise the demographic breakdown of our reader- 
ship would probably not be overwhelmed by Microdata sites, 
as it is today. We wish there were reliable figures on exactly 
what users are out there. 

Your observation that we usually publish code and other items 
developed on a Microdata is accurate, although we feel readers 
should be careful not to ignore a proc just because the first line 
is PQN, or a program if it happens to contain an INPUT 
USING, since we try to publish software that is at least in¬ 
teresting and instructive, even if it may not be universally 
machine executable. We see only two good solutions for 
publishing more non-Microdata material acquiring other 
machines for our staff (perhaps an ADDS and a Prime?), or ac¬ 
quiring articles from users of other machines. Guess which 
solution we feel we can justify. (We liked the way you quoted 
“standard”. Maybe if a detailed, published standard did exist, 
it would be easier to detect incompatibilities ?) In the mean 
time, well be glad to publish any explanation describing “a 
better way of doing things” using other systems. 

As for exponentiation, we think you are confusing operators 
with functions, where an “operator” is a symbol such as a plus 
sign between two operands, and a “function” is a word such as 
SQRT followed by an argument list in parentheses. It is true 
that ADDS and Microdata can perform exponentiation, but 
only with the PWR function. In fact, all four implementations 
that we compared supported PWR, so PWR was not described 
in the survey, just as ABS and many other functions were ig¬ 
nored as described on page 18 of that issue. On the other hand, 
only Cosmos and Prime support exponentiation operators 
(either two asterisks or a caret), so those operators (which are 
not functions) were described as “not available” for Microdata 
and ADDS. We actually tried those operators on a Microdata, 
but the compiler reported an error. If they work on an ADDS, 
then they are a feature not described in the Mentor documenta¬ 
tion we have. 

— Editors 
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An Improved HEADUP 

Your article Self-Documenting Reports in issue #4, May 1983 
/page 27] is most interesting and useful. However, I make the 
following observations: first, the HEADUP proc must be writ¬ 
ten in “old” PQ proc versus “new” PQN proc on Microdata or 
the blanks will remain as attribute marks in the PROCRE AD. 
Second, the restriction that no value comparisons (double 
quoted values) and certain single quoted words can not be 
utilized severely limits the usefulness of the program. I have 
enclosed a modification of the HEADUP program which 
solves the problem by eliminating the quote marks from the 
HEADING string. While this compromises the documenta¬ 
tion slightly, the greater utility far outweighs any imperfec¬ 
tions. It should be noted that line two of my version must be 
modified if the program is renamed and the new name has a 
different character length. 

I greatly enjoy your magazine and find it extremely useful. 
Unlike many of your survey respondents I read Pragma cover 
to cover and find the time well spent. Keep up the good work. 

Brian Stone 
Calpac Inc. 

Los Angeles CA 

We tested your new version, and it works great, but we prefer 
our more general method of skipping the program name in the 
proc buffer ; so we developed this third version: 

HEADUP 

001 PROCREAB COMMAND ELSE STOP 
002 BLANK. P0$ = INDEX (COMMAND," M) 

003 IF BLANK.POS = 0 THEN STOP 

004 COMMAND = COMMAND C BLAIK. P0S+i? LEN(CQIfiAND) -RMC. POS 3 
005 CMD = COMMAND 
006 LOOP 

007 8. POS = INDEX(CMD, /H M) 

008 WHILE Q.P0S DO 

009 CMD = CMDt1> 8 . P0S-1]*CMDCQ.PQS+1 7 LEN(CMD) - 8 . POS3 
010 REPEAT 
Oil LOOP 

012 Q.PGS = INDEX(CMD, H 'M> 

013 WHILE 8.POS DO 

014 CMD = CMDt11Q.POS-1]s CMDI0.P0S+11LEN(CMD)-8.POS] 

015 REPEAT 

016 COMMAND = COMMAND*' HEADING '"^PAGE - ''*CMD* H - ' 

017 CRAIN COMMAND 
018 END 

This incorporates your quote-stripping method, although we 
used LOOPs instead of GO TOs. It is interesting to note that 
in Cosmos or Prime BASIC, each five-line LOOP can be re¬ 
placed with a single CONVERT statement 

— Editors 


Suppressing Histograms and the Editor, Desirable Functions 

In answer to Wish HI fISTAT and HASH-TEST Graph Sup¬ 
pression, Pragma #2, November 1982, page 23], the ST AT verb 
will produce the desired statistics without going through the 
detailed histogram. 

Whenever I have accidentally typed in an editor command 
that would produce a long listing [see Wish #64, Aborting 
Editor Commands, Pragma #4, May 1983, pago 18/ and I wish 
to suppress the output and stay in the editor, I hit the break 


key, type P and a carriage return, and hit the line feed key to 
resume editing. When the editor has finished “listing” the 
data, a prompt will reappear. Now repeat the break-P-line feed 
sequence to resume normal editing. The P command in the 
debugger or TCL suppresses output to the terminal and acts 
like a toggle. In the debugger, the message “ON” or “OFF” 
will remind you which state you are in. This technique is 
especially useful when working with a modem at slow baud 
rates. 

Finally, there are three functions that I have seen in other 
computers’ versions of BASIC that I wish were in 
DATA/BASIC. These are SWAP(X,Y), MIN(X,Y) and 
MAX(X,Y). SWAP would exchange the value of X with Y. 
MIN and MAX would return the minimum and maximum of 
the two arguments. 

Mark A. Johnson 
C.F. Guyon Inc. 

Harrison NJ 

Actually, HASH-TEST and ST AT output is not really iden¬ 
tical , especially when trying a test modulo, which ST AT does 
not support. Suppressing the HASH-TEST graph would still 
be a useful feature. 

Note that your editor suppression technique works even if the 
command being suppressed happens to exit the editor ; such as 
when a self-referencing prestore command for deleting all 
items in a file exits the editor after the last item is deleted. 
Happily, P is accepted by the debugger even when the user 
privileges are only SYSO, at least on a Microdata, 

There are many implementations of programming languages, 
such as FORTRAN, PL/I and COBOL, that have function 
libraries far more extensive than that available in 
DATA/BASIC, almost allowing us to make your wish list of 
functions arbitrarily long. What's really needed is a user func¬ 
tion definition capability (sometimes seen in other BASIC im¬ 
plementations) that allows the programmer to define custom 
functions written in BASIC, either imbedded in a program as a 
local unit, or defined as an external, global library member that 
can be called by other programs. Note that your SWAP has 
been done using the syntax A:—:B in other language im¬ 
plementations, including some BASICs. Also, why limit MIN 
and MAX to just two arguments? And why not allow dynamic 
arrays to be arguments for MIN and MAX? Or for that matter, 
how about if dynamic arrays are allowed as operands with 
arithmetic operators... 

— Editors 


More on Avoiding Saved Lists 

Your articl e Avoiding Saved Lists in issue #4, May 1983 [page 
26], was of extreme interest. I have discovered a similar exam¬ 
ple in the Microdata proc manual (release 3.2, page 107). Your 
proc is excellent for compiling and cataloging the same pro¬ 
gram in one step, but on a much more practical application I 
have been unable to get successful results and have continued 
using saved lists. 

I am attaching a sample proc from one of the hundreds I cur¬ 
rently use. An example of [avoiding saved lists in] this type of 
application would be greatly appreciated by not only me, but 
many of your other subscribers. 

I would like to take this opportunity to praise your uncompil- 
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ing program in the Utilities section. I appreciate this section 
and hope to see it continued. 


Richard Chess 

General Piping Products Inc. 
Houston TX 


The technique described in our article really works best at 
feeding item names one at a time to TCL-II verbs such as 
EDIT or BASIC, not ENGLISH verbs such as LIST or SORT, 
since TCL-II verbs are designed for processing explicit item 
lists one item at a time, while ENGLISH verbs can scan a 
whole file of implicit item names. (See your Programmer's 
Reference Manual for a description of the differences between 
TCL-I, TCL-II and ENGLISH verbs.) However, we still see 
other ways to improve the example you sent us, which with 
comments removed essentially looks like: 

PQH 

HSELECT ORDERS WITH COMPLETE * Y* ? 

STON 

HSAUE - LI ST OPEN - ORDERS 
P 

HGET-LIST OPEN-ORDERS 
STON 

HSELECT ORDERS WITH CODE < * 1 ? ? ‘ 3 3 3 < 
HSAUE-LI ST OPEN-1 
P 

HGET-LIST OPEN -1 
STON 

HRUN BP PROCESS 
P 

HGET-LIST OPEN-ORDERS 
STON 

HSELECT ORDERS WITH CODE ‘ < 2 ? ’ Si 4”< 
HSAUE-LIST OPEN-2 
P 

HGET-LIST OPEN-2 
STON 

HRUN BP PROCESS 
P 

It appears you are selecting “open” orders and then process¬ 
ing those orders with an odd CODE separate from those with 
an even CODE, even though the exact same program handles 
both cases. If CODE is attribute five, for example, then 


001 PON 

002 HSELECT ORDERS WITH COMPLETE "Y" 
003 H BY ODD.EVEN.CODE 
004 STON 

005 HRUN BP PROCESS 
006 P 


ODD.EVEN.C01E 
001 A 
002 0 
003 
004 
005 
006 
007 

008 RC2;5?R 
009 L 
010 10 


would do the same job, but in a much more simple way. The 
ODD.EVEN.CODE item returns zero for even CODEs or one 
for odd CODEs. If odd CODEs must be processed first, not 
just separate, then BY-DSND ODD.EVEN.CODE should be 
used instead. 


— Editors 


Bigger Systems Found 

In the article Survey Says in the May issue [Pragma M, page 
3], this question was asked: “Aren't there any bigger systems 
out there?" The hardware configuration for our Prime 850 con¬ 
sists of the following: 

4 MB main memory 
16 KB cache memory 
(3) 300 MB disk drives 
(2) 600 LPM line printers 
(2) 120 CPS printers 
(2) 300 LPM line printers 
(86) CRTs 
(96) ports 

(2) 75 IPS 800/1600 BPI tape drives 

Maybe this configuration will qualify for being among the 
largest Pick look-alikes. As you can see, we are more in¬ 
terested in Prime Information articles than any other articles. 
Please try to have more articles on Prime Information. 

James E. Prestridge 
NASCO Inc. 

Springfield TN 

The 850 used to be the top of that line, but Prime has just in¬ 
formed us (by no less than an express mail service) that the 
9950 is now available, offering “50% greater performance than 
the 850”. Monisa Trice (ofDrs. Groover ; Christie and Merritt) 
and Ephraim Love (of JVC Company of America) also both 
wrote to describe their 2 MB Sequel systems. Perhaps one of 
you could run some benchmarks with NASCO to determine 
which system really appears biggest and fastest to the soft¬ 
ware? 

— Editors ® 
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Need More 



The MPE/4 allows 4 terminals to share 
one CPU Port. All electronic switching 
with optional log off. For more infor¬ 
mation call or write: 



11232-E South Village Way 
Santa Ana, CA 92705 
electronics (714) 972-1727 


Pick Systems is a trademark of Pick Systems, Inc. 


mjr* _ tm l ^ 

ivjLicruuaui 

tie 

REALITY® 1600 

REALITY® 6545 

128K Core 

128K MOS 

Reflex I 

Reflex I 

32 Ports 

16 Ports 

DP 300 LPM 

Printronix P-150 

Other systems & equipment available. 

The IJM Company 

Jim Fisher 

1438 Medford Avenue 

317/636-2677 

Indianapolis, IN 46222 



Microdata™ Components 

FOR SALE 

Marathon Disks • Core Memory 
8-Ways • Tape • CRT • Printer 

Call Jerry Buckley at 213-985-2680 


Permuted Index 
to First Four 
Pragma Issues 

The listing beginning on the next page indexes all articles, 
features and advertisements published in the first four issues 
of Pragma. To find an item of interest, first think of some 
word that describes what you are looking for, then find the 
word along the RIGHT side of the vertical DASHED line that 
runs down the middle of each half of the page. Once you have 
found a keyword, scan left on that line to find the pair of 
numbers indicating the issue and page where the article can be 
found. For example, if your keyword is ARIZONA, the index 
indicates you should check page 25 in issue #4. If your 
keyword is BILL OF MATERIAL, you should check issue #2, 
page 27. 

The index has been generated by “permuting” a one line 
descriptor for each article so that all keywords in the descrip¬ 
tor appear sorted along a common line. For example, the arti¬ 
cle ZIP CODE FILE DESIGN would appear four times as 

ZIP : CODE FILE DESIGN 
ZIP CODE FILE : DESIGN 

ZIP CODE : FILE DESIGN 

: ZIP CODE FILE DESIGN 

Although this tiny sample is alphabetic along the vertical line, 
hundreds of other descriptors for other articles need to appear 
also, so the four entries shown here do not end up adjacent in 
the actual index. 

The descriptor for each article is an arbitrarily long line con¬ 
sisting of fragments that identify: 

Titles of articles (t) 

Departments from the cover of Pragma (d) 
Miscellaneous keywords (k) 

Authors’ last names (a) 

Last names of people mentioned (n) 

Vendors of advertisements (v) 

Product names advertised (p) 

Categories of advertised products (c) 

The letters above in parentheses prefix each fragment inside 
every descriptor, and are summarized at the top of each index 
page. Many of these lower case prefixes are themselves 
alphabetized as keywords at the end of the index. Note that 
not every fragment in the list above appears in each descrip¬ 
tor. 

Descriptors are truncated to fit into the column provided. To 
read the first words of a descriptor that is too long to fit in the 
column, look up the leftmost whole word in the current line. 
For example, the first descriptor for the keyword 
BENCHMARKS shows an article on page 21 in issue #1, but 
what is the title of the article? MEMORY is the leftmost 
whole word on that line, so looking up MEMORY in the index 
locates the same descriptor, but shifted more to the right 
within the column, revealing that the title begins with MORE 
MEMORY. [E 
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Prasna Issues 1 to 4 Keyword Index a) Author cl Category d) Departaent k) Keywords n) Nanes p) Product t) Title v) Vendor 


4 18 EFAULT ATTRIBUTES, EDITOR 
1 27 S, STATEMENT LABELS, FILE 

1 43 DK ENTERPRISES p) GAAP cl 

2 4 DK ENTERPRISES p) GAAP c) 

3 7 SSET MANAGEMENT SYSTEM c) 

3 41 DK ENTERPRISES p) GAAP c) 

4 8 DK ENTERPRISES p) GAAP c) 
4 33 SSET MANAGEMENT SYSTEM c) 
4 41 p) FIXED ASSET MODULE c) 
3 27 ENGLISH HEADINGS, SPOOLER 

3 44 ACCU/SOFT ENTERPRISES p) 

4 44 ACCU/SOFT ENTERPRISES p} 

3 36 t) 

3 44 d) AD v) 

4 44 d) AD v) 

4 29 TOUGH, LINDA SPELMAN, LEE 
3 33 d) AD v) 

3 17 R PROFILE k) MICRODATA TO 

4 18 . PRIME VS. MICRODATA VS. 
2 31 BLE DISK SPACE, PRISM VS. 

1 43 v) SEMAPHORE p) PRAGMA c) 

2 8 v) SEMAPHORE p) PRAGMA c) 

3 30 v) SEMAPHORE p3 PRAGMA d 

1 2 INSCRIPTIONS, SUBMITTALS, 

2 2 INSCRIPTIONS, SUBMITTALS, 

3 4 INSCRIPTIONS, SUBMITTALS, 

4 4 UBSCRIPTIONS, SUBMITTALS, 

4 30 t> ANOTHER EDIT 

36 t) EDIT 

3 39 } AD v) SOFTWARE GROUP p> 

4 7 } AD v) SOFTWARE GROUP p) 

2 31 S, ITEM LOCKS, CHARGEBACK 

1 32 RY AND FILE SAVE/RESTORE, 

3 33 d) AD v) 

2 45 N, MALIA CULBRETH, JOSEPH 

2 18 AVEN, ALAN THOMPSON, LYNN 

4 3 A, WESLEY WOODLAND, KAREN 

3 40 t) 

4 41 d) AD v) 

3 35 t) SOME WISHES ARE 

3 39 SOFTWARE GROUP p) AIDS d 

3 47 v) CHRONON DATA p) HAL d 

4 7 SOFTWARE GROUP P> AIDS d 
4 48 v) CHRONON DATA pi HAL c) 

3 6 ) ARTICLE k) INFAULT PROC 

4 25 ROUPS k) DELAWARE VALLEY, 

2 22 S, ON-LINE DOCUMENTATION, 

3 7 AD v) MULTIDATA p) FIXED 

4 33 AD v) MULTIDATA p} FIXED 
4 41 COMPUTER SYSTEMS p) FIXED 

2 22 CONTIGUOUS OUTPUT, STRING 

3 26 GGED OUTPUT d) ARTICLE k) 

3 27 FIER LENGTH, GROIN LOCKS, 

4 18 PY NULL SUPPRESS, DEFAULT 

1 45 TERACTIVE SYSTEMS p) TCL- 

25 d) AD v) AUROTECH p} 

32 d) AD v} AUROTECH p} 

4 47 d) AD v) AUROTECH p) 

2 5 d) AD v) 

3 2 d) AD v) 

4 47 d) AD v) 

2 8 DELTA DATA CONSULTANTS p) 

2 8 d) AD v) 

3 8 d) AD v) 

4 41 d) AD v) 

2 31 T, ERRMSG 1131, SECURITY, 

4 3 ITORIAL k) READER SURVEY, 

4 26 t) 

2 22 SCREENPRO COMMAND, EDITOR 

2 22 LER, ISTAT AND HASH-TEST, 

4 14 t) PACIFIC VALLEY 

4 3 BSON, TJ LEIFIELD, JANICE 

3 28 HAND FILES k) ENGLISH VS. 

3 25 t) MORE 

4 18 t) A COMPARISON OF 


ABORT, CORRECTING TYPOS a 
ACCESS, POWER-FAILS, LOGO 
ACCOUNTING PACKAGE 
ACCOUNTING PACKAGE 
ACCOUNTING PACKAGE 
ACCOUNTING PACKAGE 
ACCOUNTING PACKAGE 
ACCOUNTING PACKAGE 
ACCOUNTING PACKAGE 
ACCOUNTING, LOCK LIMITS, 
ACCU-PLQT II c) GRAPHICS 
ACCU-PLOT II d GRAPHICS 
ACCU/PLOT UPGRADES d) LET 
ACCU/SOFT ENTERPRISES p) 
ACCU/SOFT ENTERPRISES p) 
ADAMSON, JEANINE CHRISTIA 
ADDEPT p) CONSULTING SERV 
ADDS CONVERSION, DISTRIBU 
ADDS n) ROGER HARPEL, DAV 
ADDS, WHERE LINKS, ITEM L 
ADVERTISING SPACE 
ADVERTISING SPACE 
ADVERTISING SPACE 
ADVERTISING, READER SERVI 
ADVERTISING, READER SERVI 
ADVERTISING, READER SERVI 
ADVERTISING, READER SERVI 
AIDE d) LETTERS a) JACK H 
AIDES d) ARTICLE k) DEFAU 
AIDS cl APPLICATIONS GENE 
AIDS c) APPLICATIONS GENE 
ALGORITHM, RELEASE NUMBER 
ALL, 4.1 SPOOLER 
ALPHATEST p) MICRODATA RE 
AMERES 
ANDERSON 
ANDERSON 

ANIMAL, A PROGRAM THAT LE 
ANSDATA ASSOC p) THE SUE 
ANSWERED d) LETTERS kl SL 
APPLICATIONS GENERATOR 
APPLICATIONS GENERATOR 
APPLICATIONS GENERATOR 
APPLICATIONS GENERATOR 
ARGUMENTS a) MICHAEL ROSS 
ARIZONA, NORTHERN CALIFOR 
ASSERTIONS, SCREENPRO COM 
ASSET MANAGEMENT SYSTEM c 
ASSET MANAGEMENT SYSTEM c 
ASSET MODULE c) ACCOUNTIN 
ASSIGNMENT, SCREENPRO NUL 
ATTRIBUTE HEADINGS 
ATTRIBUTE SECURITY, ENGLI 
ATTRIBUTES, EDITOR ABORT, 
AUDITOR, REPORT-GEN, SCRE 
AUROPLAN c) SPREADSHEET 
AUROPLAN c) SPREADSHEET 
AUROPLAN c) SPREADSHEET 
AUROTECH p) AUROPUW d S 
AUROTECH p) AUROPLAN d S 
AUROTECH p) AUROPLAN d S 
AUTOMATIC LINE OPERATOR c 
AUTOMATIC PROGRAMMING p) 
AUTOMATIC PROGRAMMING p) 
AUTOMATIC PROGRAMMING p) 
AVAILABLE DISK SPACE, PRI 
AVAILABLE HARDWARE SURVEY 
AVOIDING SAVED LISTS WITH 
B, PQ-COMPILE STON, PAGE, 

RflfVCpAf-C 

BANK d) USER PROFILE k) M 
BARTLETT, GAIL BELLON, JA 
BASIC 

BASIC COMPARISONS d) BENC 
BASIC IMPLEMENTATIONS d) 


1 27 E, SCREENPRO MULTIVALUES, 

1 27 , ENGLISH PRINT LIMITING, 
4 12 G, PART 1 d) UTILITIES k) 

2 38 t3 SECURITY AND THE DATA/ 
4 3 EY, CONFIGURATION SURVEY, 

2 35 FROM IRVINE d> LETTERS k) 
1 27 LE SECURITY, SORT BREAKS, 

3 31 OGRAM AND GARBAGECOLLECT, 

4 3 LD, JANICE BARTLETT, GAIL 
4 3 R HARPEL, RAY WONG, LOUIS 

1 21 RE MEMORY, FEWER READS dl 

3 25 MORE BASIC COMPARISONS d) 

4 17 S. RIGHT JUSTIFICATION d) 

2 20 t) LOOP VS. LOCATE d) 

2 27 FACTURING SYSTEM, PART 2: 

1 32 dl QUERIES kl 

3 40 M THAT LEARNS d) GAMES k> 

2 10 t) 

3 38 t) GENERATING 

2 31 ACE, HOLD FILES, CHOP AND 

1 27 SES, SORT-LABEL, ON ELSE, 

2 18 d) SUBSCRIBERS nl MIKE 

4 3 ARTLETT, GAIL BELLON, JAY 

1 27 d) WISH LIST k) SLEEP, 

2 31 GORITHH, RELEASE NUMBERS, 
1 27 VERT, FILE SECURITY, SORT 
4 29 DS, TERRY MULHERN, DEMIIS 
1 36 2 SCREENPRO d) ARTICLE k) 

1 30 t) 

3 33 d) AD v) 

4 41 d) AD v) 

3 33 DATA REALITY c) WANTED TO 

4 25 VALLEY, ARIZONA, NORTHERN 

2 22 , E REGISTER, CORRELATIVE 
4 25 t) AN UNDOCUMENTED EDITOR 

1 24 d) AD v) SEMAPHORE p} 

2 46 d) AD v) SEMAPHORE p) 

3 47 d) AD v) SEMAPHORE p} 

4 3 BELLON, JAY BONHAM, ANNA 
4 25 EARFIELD, JIM REILLY, JIM 
2 31 WHERE LINKS, ITEM LOCKS, 

2 22 PQ VS. PQN, PAGE NUMBERS, 

3 32 t) SHARED SITE 

1 26 t) HOW TO FLAG MISSING 

4 24 EHAN, KEVIN COOK, RICHARD 

2 31 k) WORKSPACE, HOLD FILES, 
4 29 MAN, LEE ADAMSON, JEANINE 

3 47 d) AD v) 

4 48 d) AD v) 

4 25 ORTHERN CALIFORNIA n) BOB 
4 12 UTILITIES k) BASIC OBJECT 

1 4 t> ZIP 

4 25 ILITY d) ARTICLE k) SEMI- 
3 28 t) GENERATING MONTHLY 

2 26 t) PROC CONVERSIONS d) 

1 30 ISH I€ADINGS WITH PROC d) 

3 28 ONTHLY COLUMN HEADINGS d) 

4 26 LISTS WITH PQ-RESELECT d) 

2 22 ON, ASSERTIONS, SCREENPRO 

3 31 TO ENGLISH, PART 2: MORE 

3 27 UNTING, LOCK LIMITS, SLOW 

1 48 d) AD v) DYNATRONICS p) 

2 11 k) FILE CtWSTRICTION AND 

4 18 tl A 

3 25 t) MORE BASIC 

2 22 RO COMMAND, EDITOR B, PQ- 

2 41 v) INTERACTIVE SYSTEMS p) 

3 I v) INTERACTIVE SYSTEMS p) 

4 31 v) INTERACTIVE SYSTEMS p} 

3 8 dl v) 

1 37 d) AD v) 

2 32 tl THE TROUBLE TREE d) 

3 32 SHARED SITE CHECKLIST d) 

4 29 t) PRINTER TRADE-OFFS d) 

1 34 d) 


BASIC INCLUDE, EDITOR LIN 
BASIC INPUT/OUTPUT, SYSTE 
BASIC OBJECT CODE 
BASIC PROGRAMMER dl ARTIC 
BASIC SURVEY, CONTEST n) 
BAUD RATES a) DENNIS KEAT 
BAUD RATES, PREVENTING LO 
BAUD SWITCHES, U508E 
BELLON, JAY BONHAM, ANNA 
BELTJENS, BRUCE SLAWINSKI 
BENCHMARKS 

BENCMARKS k) LOOP, LOCAT 
BENCHMARKS k> SORTING 
BENCHMARKS nl DAVIN LAWSO 
BILL OF MATERIAL INPUT d) 
BINARY AND FILE SAVE/REST 
BINARY TREES 

BLACK BOX FORMATTING d) A 
BLl FORMS d) ARTICLE k) 
BLAST, ERRMSG [131, SECUR 
BLOCK-CONVERT, FILE SECUR 
BLUE, PAH CRAVEN, ALAN T 
BONHAM, ANNA CARSEN, STEV 
BREAK-ON, FRAME FAULTS, E 
BREAK-ON, SYSPROG VS. SP, 
BREAKS, BAUD RATES, PREVE 
BROWN, ROGER HARPEL, PAUL 
BUG 

BUILDING ENGLISH HEADINGS 
BURNS & ASSOC p) SAM d P 
BURNS & ASSOC p) SAM d P 
BUY 

CALIFORNIA n) BOB CLEARFI 
CALLS, ON-LINE DOCUMENTAT 
CAPABILITY d) ARTICLE k) 
CARGO c) SPREADSHEET 
CARGO c) SPREADSHEET 
CAR® d SPREADSHEET 
CARSEN, STEVE MATTSON, TO 
CATES, SHELLY FRECKER, JO 
CHARGEBACK ALGORITHM, REL 
CHECK SPOOLER, ISTAT AND 
CHECKLIST d) COMPUTER ROO 
CHECKS d) ARTICLE k) ENGL 
CHESS, RICHARD USRY, BRIA 
CHOP AND BLAST, ERRMSG Cl 
CHRISTIANO, DICK GOULD 
CHRONON DATA p} HAL c) AP 
CHRONON DATA p) HAL d AP 
CLEARFIELD, JIM REILLY, J 
CODE 

CODE FILE DESIGN d) ARTIC 
COLON OPERATOR n) ED SHEE 
COLUMN HEADINGS d) COMMAN 
COMMAND FILES 
COMMAND FILES k) DEBUGGIN 
COMAND FILES k) ENGLISH 
COMMAND FILES k) SELECT 
COMMAND, EDITOR B, PQ-COM 
COMMANDS d) ARTICLE 
COMMANDS, MF CONVERSIONS, 
COMMUNICATIONS CONTROLLER 
COMPACTION 

COMPARISON OF BASIC I MALE 
COMPARISONS d) BENCHMARKS 
COMPILE STON, PAGE, UNDOC 
COMPU-SHEET d SPREADSHEE 
COMPU-SHEET d SPREADSHEE 
COMPU-SHEET c) SPREADSHEE 
COMPUTER DISTRIBUTORS c) 
COMPUTER DISTRIBUTORS p) 
COMPUTER ROOM k) DIAGNOST 
COMPUTER ROOM k) DISASTER 
COMPUTER ROOM k) HARDWARE 
COMPUTER ROOM k) TAPE MOU 
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I 37 BUTORS p) IBM SERIES/1 cl 
1 42 R SYSTEMS p) EVOLUTION c) 
1 47 } MICRODATA p) REALITY c) 
1 42 dl AD v) EVOLUTION 

4 41 d) AD v) DIOGENES 

28 d) AD v) IRVINE 

3 33 d} AD v) IRVINE 

4 3 t) 

1 29 t) 

3 36 t) MORE ON 

2 35 t) 

4 29 COMPUTER ROOM k) HARDWARE 

3 3 TORY, PRODUCT EVALUATION, 

4 3 VAILABLE HARDWARE SURVEY, 
2 11 FILE d) UTILITIES k) FILE 
28 d) AD v) DELTA DATA 

1 41 d) AD v) SEMAPHORE p) 

2 48 d) AD v) SEMAPHORE p) 

3 33 d) AD v) ADDEPT p) 

3 48 d) AD v) SEMAPHORE p) 

3 33 d) AD v) PICK SYSTEMS c) 

4 3 ION SURVEY, BASIC SURVEY, 
2 22 DE, FILE ENGLISH OUTPUT, 
2 10 ATTING d) ARTICLE k) DISK 

1 48 TRONICS p) COMMUNICATIONS 
4 14 ILE k) MICRODATA TO PRIME 

2 16 FILE k) REALITY TO* SEQUEL 

3 17 FILE k) MICRODATA TO ADDS 

2 26 tl PROC 

1 29 ITH ENGLISH d) ARTICLE k) 

2 22 PLAY STATEMENT, SCREI 

3 27 LIMITS, SLOW COMMANDS, MF 

1 27 RT-LABEL, ON ELSE, BLOCK- 

3 34 tl 

4 24 BERS n) ED SHEEHAN, KEVIN 

2 39 tl 

4 18 dl WISH LIST kl 

3 8 ER, JOEL NIRENBERG, BRUCE 

4 18 ATTRIBUTES, EDITCK ABORT, 

2 22 PAGE EDITOR, E REGISTER, 

1 26 CKS dl ARTICLE kl ENGLISH 
1 29 1 ARTICLE k) CONVERSIONS, 

3 38 RMS dl ARTICLE kl ENGLISH 

4 18 EMENTATIONS dl ARTICLE kl 

1 46 dl AD vl 

3 37 dl AD vl 

4 43 dl AD vl 

4 2 dl AD vl 

1 14 tl DERIVING YEAR-TO-DATE 
4 3 MATTSON, TOM WELCH, PETER 

2 16 ITY TO SEQUEL CONVERSION, 
2 13 RIBERS ril MIKE BLUE, PAUL 

2 31 BREAK-ON, SYSPROG VS. SP, 

1 22 tl SYSMAP, PART l: A 

3 12 LIST.POINTERS: A PROC FOR 

2 45 HUBER, MARK NELSON, MALIA 

4 29 BROW, ROGER HARPEL, PAUL 

2 8 dl AD vl DELTA 

1 4 FILE DESIGN dl ARTICLE kl 

3 47 dl AD vl CHRONON 

4 48 dl AD vl CHRONON 

2 38 tl SECURITY AND THE 

1 14 tl DERIVING YEAR-TO- 

2 40 dl SUBSCRIBERS nl STEVEN 

2 22 ENPRO CONVERSIONS, EDITOR 

3 27 ADING EXPRESSIONS, EDITOR 

1 30 PROC dl COMMAND FILES kl 

4 13 ST kl COPY NULL SUPPRESS, 

3 6 EDIT AIDES dl ARTICLE kl 

4 25 dl LOCAL USER GROUPS kl 

2 11 tl TRIM. 

2 8 dl AD vl 

1 14 tl 

4 42 tl SWAT! dl GAMES nl RENE 
1 14 COUNTS dl ARTICLE kl FILE 


COMPUTER SYSTEM 
COMPUTER SYSTEM 
COMPUTER SYSTEM 
COMPUTER SYSTEMS p) EVOLU 
COMPUTER SYSTEMS p! FIXED 
COMPUTER cl PERIPHERAL HA 
COMPUTER cl PERIPTERAL HA 
COMPUTER-GENERATED INDEX 
COMPUTING NODULOS WITH EN 
COMPUTING MODULOS dl LETT 
COMPUTING MODULOS dl LETT 
CONFIGURATION 
CONFIGURATION SURVEY 
CONFIGURATION SURVEY, BAS 
CONSTRUCTION AND COMPACTI 
CONSULTANTS p) AUTOMATIC 
CONSULTING SERVICES cl MA 
CONSULTING SERVICES cl MA 
CONSULTING SERVICES cl MA 
CONSULTING SERVICES cl MA 
CONTEST 

CONTEST nl ROGER HARPEL, 
CONTIGUOUS OUTPUT, STRING 
CONTROLLER 

CONTROLLER cl PORT HARDWA 
CONVERSION nl ALEXANDER L 
CONVERSION, CPA nl JOE KE 
CONVERSION, DISTRIBUTOR, 
CONVERSIONS dl COMMAND FI 
CONVERSIONS, CORRELATIVES 
CONVERSIONS, EDITOR DE, F 
CONVERSIONS, SELECT ONE, 
CONVERT, FILE SECURITY, S 
CONVERTING PAINT TO PROGR 
COOK, RICHARD CHESS, RICH 
COOKIE dl GAMES kl FORTUN 
COPY NULL SUPPRESS, DEFAU 
CORBETT, FRANK WILEY 
CORRECTING TYPOS al MARK 
CORRELATIVE CALLS, ON-LIN 
CORRELATIVES 
CORRELATIVES 

CORRELATIVES al HENRY NUD 
COSMOS VS. PRIME VS. MICR 
COSMOS Pi R/NET cl NETWOR 
COSMOS p} R/NET d NETWOR 
COSMOS Pi R/NET c> NETWOR 
COSMOS pi REVELATION d 0 
COUNTS dl ARTICLE kl FILE 
COY, CHERYL GUMINIK, SHIR 
CPA nl JOE KEMPTER 
CRAVEN, ALAN THOMPSON, LY 
CREATING FILES 
CROSS-REFERENCE SYSTEM dl 
CROSS-REFERENCING Q-POINT 
CULBRETH, JOSEPH AMERES 
DAHILL, SHIRLEY STOUGH, L 
DATA CONSULTANTS p! AUTOM 
DATA ENTRY 

DATA Pl HAL d APPLICATIO 
DATA Pl HAL d APPLICATIO 
DATA/BASIC PROGRAMMER dl 
DATE COUNTS dl ARTICLE kl 
DAVIES-MORRIS, THOMAS DOW 
DE, FILE ENGLISH OUTPUT, 
DE, IDENTIFIER LENGTH, GR 
DEBUGGING 

DEFAULT ATTRIBUTES, EDITO 
DEFAULT PROC ARGUMENTS a) 
DELAWARE VALLEY, ARIZONA, 
DELIM AND PROFILE dl UTIL 
DELTA DATA CONSULTANTS pl 
DERIVING YEAR-TO-DATE COU 
DESCARTES 
DESIGN 
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4 41 
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3 32 
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2 31 

1 34 

2 22 

3 17 
3 8 

1 37 
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2 32 
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4 5 
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2 22 
4 27 
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3 31 
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3 27 
3 27 
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2 22 
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4 24 
1 27 
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2 27 
1 26 
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4 27 

1 30 
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2 22 
1 27 
3 28 
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2 24 

3 31 

4 30 

1 4 
4 32 

2 31 
1 27 

3 3 
1 42 
1 42 
1 36 


3 27 
1 27 
1 27 
1 21 
3 25 


H WELL dl ARTICLE kl FILE 
tl ZIP COIS FILE 
TREE dl COMPUTER ROOM kl 
tl SYSMAP, PART 4: 

dl AD vl 

L kl REAMER SURVEY, IDBMA 
KLIST dl COMPUTER ROOM kl 
FORMATTING dl ARTICLE kl 
C133, SECURITY, AVAILABLE 
ER ROOM kl TAPE MOUNTING/ 
1 WISH LIST kl PASSWORDS, 
ODATA TO ADDS CONVERSION, 
dl AD vl COMPUTER 
dl AD vl COMPUTER 
TEM dl ARTICLE kl PROGRAM 
MPUTER ROOM kl DIAGNOSTIC 
LITY TECHNICAL JOURNAL d 
LITY TECHNICAL JOURNAL cl 
S Pl PICK POCKET GUIDE d 
ORRELATIVE CALLS, ON-LINE 
tl SELF- 

VEN DAVIES-MORRIS, THOMAS 
dl AD vl 

LECT, BAUD SWITCHES, U508 
MULTIVALUES, PAGE EDITOR, 
dl AD vl 
dl AD vl 
tl ANOTHER 
tl 

RESS, DEFAULT ATTRIBUTES, 
TIONS, SCREENPRO COWAND, 
tl AN UNDOCUMENTED 
T, SCREENPRO CONVERSIONS, 
T kl HEADING EXPRESSIONS, 
CT ONE, INPUT TIME LIMIT, 
LTIVALUES, BASIC INCLUDE, 
ON, FRAME FAULTS, ERRMSG, 
ERED dl LETTERS kl SLEEP, 
UMENTED FEATURES, LOCATE, 
REENPRO MILTIVALUES, PAGE 
tl WELCOME TO PRAGMA dl 
tl WE HAVE LIFTOFF dl 
tl SURVEY SAYS... dl 
ARE MEDIUM, WELL DONE? dl 
LESS, RICHARD USRY, BRIAN 
RELEASES, SORT-LABEL, ON 
RTICLE kl MRP, SCREENPRO, 
ERIAL INPUT dl ARTICLE kl 
SING CHECKS dl ARTICLE kl 
BLANK FORMS dl ARTICLE kl 
ING REPORTS dl ARTICLE kl 
tl BUILDING 
OCKS, ATTRIBUTE SECURITY, 
VERSIONS, EDITOR DE, FILE 
SPLITTING, LOGON LIMITS, 
DINGS dl COWAND FILES kl 
tl COMPUTING MODULOS WITH 
tl AN INTRODUCTION TO 
tl AN INTRODUCTION TO 
tl AN INTRODUCTION TO 
DESIGN dl ARTICLE kl DATA 
M, PART 4: PURCHASE ORDER 
LD FILES, CHOP AND BLAST, 

, BREAK-ON, FRAME FAULTS, 
IDBMA DIRECTORY, PRODUCT 
dl AD vl 

UTION COMPUTER SYSTEMS p! 

tl PATCHING TIC 
dl QUERIES kl LISTU, PROC 
dl WISH LIST kl HEADING 
INPUT TIME LIMIT, EDITOR 
BELS, FILE ACCESS, POWER- 
kl SLEEP, BREAK-ON, FRAME 
tl MORE MEMORY, 
S kl LOOP, LOCATE, OCONV, 


DESIGN 

DESIGN dl ARTICLE kl DATA 
DIAGNOSTIC DOCUMENTATION 
DICTS AND PROCS dl ARTICL 
DIOGENES COMPUTER SYSTEMS 
DIRECTORY, PRODUCT EVALUA 
DISASTER RECOVERY 
DISK CONTROLLER 
DISK SPACE, PRISM VS. ADD 
DISMOUNTING 

DISPLAY STATEMENT, SCREEN 
DISTRIBUTOR, WIZARD nl ST 
DISTRIBUTORS cl PERSONNEL 
DISTRIBUTORS pl IBM SERIE 
DOCUMENTATION 
DOCUMENTATION 
DOCUMENTATION 
DOCUMENTATION 
DOCUMENTATION 
DOCUMENTATION, ASSERTIONS 
DOCUMENTING REPORTS dl AR 
BOWLING, DON KATZMAN, PEG 
DYNATRONICS p) COMMUNICAT 
E 

E REGISTER, CORRELATIVE C 
EASTCOMP II d USED HARDW 
EASTCQMP II cl USED HARDW 
EDIT AIDE dl LETTERS al J 
EDIT AIDES dl ARTICLE kl 
EDITOR ABORT, CORRECTING 
EDITOR B, PQ-COMPILE STON 
EDITOR CAPABILITY dl ARTI 
EDITOR DE, FILE ENGLISH 0 
EDITOR DE, IDENTIFIER LEN 
EDITOR F 

EDITOR LINE SPLITTING, LO 
EDITOR PRESTORE, SCREENPR 
EDITOR PRESTORE, SPLITTIN 
EDITOR U, PQ VS. PON, PAG 
EDITOR, E REGISTER, CORRE 
EDITORIAL kl PRAGMATISM n 
EDITORIAL kl READER PREFE 
EDITORIAL kl READER SURVE 
EDITORIAL kl READER SURVE 
EHLERS, W SHAVE 
ELSE, BLOCK-CONVERT, FILE 
ENGINEERING 
ENGINEERING 
ENGLISH CORRELATIVES 
ENGLISH CORRELATIVES al H 
ENGLISH HEADINGS 
ENGLISH HEADINGS WITH PRO 
ENGLISH HEADINGS, SPOOLER 
ENGLISH OUTPUT, CONTIGUOU 
ENGLISH PRINT LIMITING, B 
ENGLISH VS. BASIC 
ENGLISH dl ARTICLE kl CON 
ENGLISH, PART U JARGON d 
ENGLISH, PART 2: WIRE COM 
ENGLISH, PART 3: FINDING 
ENTRY 

ENTRY dl ARTICLE 
ERRMSG C13I, SECURITY, AV 
ERRMSG, EDITOR PRESTORE, 
EVALUATION, CONFIGURATION 
EVOLUTION COMPUTER SYSTEM 
EVOLUTION d COMPUTER SYS 
EXIT PROBLEM IN 3.2 SCREE 
EXITS, PROGRAM AND GARBAG 
EXPRESSIONS, EDITOR DE, I 
F 

FAILS, LOGON HISTORY 
FAULTS, ERRMSG, EDITOR PR 
FEWER READS dl BENCHMARKS 
FIELD nl STEVE KOWARSKY, 
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1 27 LOGONS, STATEMENT LABELS, 

2 11 D PROFILE d) UTILITIES k) 
1 14 DATE COUNTS d) ARTICLE k) 
1 33 S HASH WELL d) ARTICLE k) 

1 4 t) ZIP CODE 

2 22 0 CONVERSIONS, EDITOR DE, 

2 14 t) SYSMAP, PART 2: 

3 15 SYSMAP, PART 3: REMAINING 
1 32 dl QUERIES k) BINARY AND 
1 27 , ON ELSE, BLOCK-CONVERT, 

1 15 SYSTEM, PART is THE PARTS 

2 26 OC CONVERSIONS d) COMMAND 

2 31 SYSPROG VS. SP, CREATING 

4 30 ENGLISH, PART 3: FINDING 

1 30 INGS WITH PROC dl COMMAND 

3 28 OLUMN HEADINGS dl COMMAND 

4 26 TH PQ-RESELECT d) COMMAND 

2 31 UERIES kl WORKSPACE, HO 
4 30 CTION TO ENGLISH, PART 3: 

3 7 dl AD v) MULTIDATA p) 

4 33 dl AD v) MULTIDATA p) 

4 41 GENES COMPUTER SYSTEMS p) 

1 26 t) HOW TO 

2 43 LEMOT, SERGE KRISIUK, LEO 
2 14 t) SYSMAP, PART 2s FILE 

2 10 tJ BLACK BOX 

3 38 t) GENERATING BLAtK 
2 39 t) COOKIE d) GAMES k) 
1 27 LIST k} SLEEP, WEAK-ON, 

4 25 REILLY, JIM CATES, SHELLY 

1 43 AD v) KDK ENTERPRISES p) 

2 4 AD v) KDK ENTERPRISES p) 

3 41 AD v) KDK ENTERPRISES p) 

4 8 AD v) KDK ENTERPRISES p) 

2 16 t) 

1 38 HE SHELL GAME d) GAMES kl 

1 38 t) THE SHELL 

3 40 A PROGRAM THAT LEARNS d) 

2 39 t) COOKIE d) 

1 38 t) THE SHELL GAME d) 

4 42 H SWAT' dl 

3 31 , PROC EXITS, PROGRAM AND 

4 3 t) COMPUTER- 

3 38 t) 

3 28 t) 

2 8 MING p) WIZARD d PROGRAM 

3 8 MING p) WIZARD c) PROGRAM 
3 39 P p) AIDS d APPLICATIONS 

3 47 TA p) HAL c) APPLICATIONS 

4 7 P p) AIDS d APPLICATIONS 
4 41 MING p) WIZARD d PROGRAM 
4 48 TA p) HAL d APPLICATIONS 
4 29 JEANINE CHRISTIANA, DICK 

3 44 PRISES p) ACCU-PLOT II d 

4 44 PRISES p) ACCU-PLOT II d 

1 43 AD v) MICRU INTL d USER 
3 27 OR DE, IDENTIFIER LENGTH, 

3 39 d) AD v) SOFTWARE 

4 7 d) AD v) SOFTWARE 

4 25 dl LOCAL USER 

4 35 CK SYSTEMS p) PICK POCKET 

3 36 DULOS d) LETTERS a) BRIAN 

4 3 WELCH, PETER COY, CHERYL 

3 47 d) AD v) CHRONON DATA p) 

4 48 d) AD v) CHRONON DATA p) 

2 16 t) GALLINSKI 

2 25 KEENE, BILL IRVINE, JIFF 
4 30 T AIDE d) LETTERS a) JACK 
2 43 d) SUBSCRIBERS n) JOHN 
1 44 v) SHEBASTA ASSOC d USED 

1 48 ATIONS CONTROLLER c) PORT 

2 8 NE COMPUTER d PERIPHERAL 

2 8 LIME OPERATOR d PRINTER 

3 8 AD v) EASTCOMP II d USED 
3 11 dl AD v) SHEBESTA c) USED 


FILE ACCESS, POWER-FAILS, 
FILE CONSTRUCTION AND COM 
FILE DESIGN 
FILE DESIGN 

FILE DESIGN d) ARTICLE k) 
FILE ENGLISH OUTPUT, CONT 
FILE FORMAT INPUT d) ARTI 
FILE INPUT d) ARTICLE 
FILE SAVE/RESTORE, ALL, 4 
FILE SECURITY, SORT BREAK 
FILE d) ARTICLE k) MRP, S 
FILES 
FILES 

FILES d) ARTICLE 
FILES k) DEBUGGING 
FILES k) ENGLISH VS. BASI 
FILES k) SELECT 
FILES, CHOP AND BLAST, ER 
FINDING FILES d) ARTICLE 
FIXED ASSET MANAGEMENT SY 
FIXED ASSET MANAGEMENT SY 
FIXED ASSET MODULE d ACC 
FLAG MISSING C1CCKS d) AR 
FOHL 

FORMAT INPUT d) ARTICLE 
FORMATTING d) ARTICLE k) 
FORMS d) ARTICLE k) ENGLI 
FORTUNE TELLING 
FRAME FAULTS, ERRMSG, EDI 
FRECKER, JODI HILGENBERG, 
GAAP d ACCOUNTING PACK AG 
GAAP c) ACCOUNTING PACKAG 
GAAP d ACCOUNTING PACKAG 
GAAP d ACCOUNTING PACKAG 
GALLINSKI HAMBURG d) USER 
GAMBLING 

GAME dl GAMES k) GAMBLING 

GAMES k) BINARY TREES 

GAMES k) FORTUNE TELLING 

GAMES k) GAMBLING 

GAMES n) RENE DESCARTES 

GARBAGECOLLECT, BAUD SWIT 

GENERATED INDEX NOW READY 

GENERATING BLANK FORMS d) 

GENERATING MONTHLY COLUMN 

GENERATOR 

GENERATOR 

GENERATOR 

GENERATOR 

GENERATOR 

GENERATOR 

GENERATOR 

GOULD 

GRAPHICS SOFTWARE 
GRAPHICS SOFTWARE 
GROUP 

GROUP LOCKS, ATTRIBUTE SE 
GROUP p) AIDS d APPLICAT 
GROW p) AIDS d APPLICAT 
GROUPS kl DELAWARE VALLEY 
GUIDE d DOCUMENTATION 
GULINO r«3 JOSEPH ZELIGS 
GUMINIK, SHIRLEY HARVEY, 
HAL c) APPLICATIONS GENER 
HAL c) APPLICATIONS GENER 
HAMBURG dl USER PROFILE k 
HARBOUR 

HARDMAN r,J MIKE ROSSETTI, 

HARDMAN, WARD VUILLEMOT, 

HARDWARE 

HARDWARE 

HARDWARE 

HARDWARE 

HARDWARE 

HARDWARE 


3 33 NE COWUTER c) PERIPHERAL 

3 37 ZENTEC p) REFLEX d USED 

4 11 d) AD v) SHEBESTA d USED 

4 34 MICRODATA REALITY d USED 
4 34 ZENTEC p) REFLEX d USED 
4 34 AD v) EASTCOMP II d USED 
4 29 -OFFS d) COMPUTER ROOM k) 
4 3 READER SURVEY, AVAILABLE 
4 29 t) A SURVEY OF 

4 41 } THE SIDEKICK d NETWORK 

3 25 n) STEVE KOWARSKY, ROGER 

4 18 CRODATA VS. ADDS r.) ROGER 
4 29 HERN, DENNIS BROWN, ROGER 
4 3 SURVEY, CONTEST r>3 ROGER 
4 18 Y, ALLISON HARTMANN, DAVE 
4 18 RPEL, DAVE OSTBY, ALLISON 
4 3 , CHERYL GUMINIK, SHIRLEY 

1 33 ) MAKING ITEM IDENTIFIERS 

2 22 CHECK SPOOLER, ISTAT AND 

3 27 d) WISH LIST k) 

3 26 T d) ARTICLE k) ATTRIBUTE 

4 27 RTS d) ARTICLE k) ENGLISH 
1 30 t) BUILDING ENGLISH 
3 28 GENERATING MONTHLY COLUMN 

3 27 TRIBUTE SECURITY, ENGLISH 
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d SPREADSHEET 
d SPREADSHEET 
d SPREADSHEET 
d SPREADSHEET 
d SPREADSHEET 
d SPREADSHEET 
d SPREADSHEET 
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Pra9»a Issues 1 to 4 Keyword Index a) Author c) Category d) Department k) Keywords n) Names p) Product t) Title v) Vendor 


4 31 VE SYSTEMS p) COMPU-SHEET 
4 47 D v) AUROTECH p) AUROPLAN 
1 3 AD v) SEMAPHORE p) PRAGMA 
1 45 AD v) SEMAPHORE pJ PRAGMA 

1 46 AD v) SEMAPHORE p) PRAGMA 

2 3 AD v) SEMAPHORE p) PRAGMA 
2 33 AD v) SEMAPHORE p) PRAGMA 

2 43 AD v) SEMAPHORE p) PRAGMA 

3 37 AD v) SEMAPHORE p) PRAGMA 

4 24 AD v) SEMAPHORE p) PRAGMA 

1 44 d) AD v) SHEBASTA ASSOC 
38 d) AD v) EASTCOMP II 
3 11 d) AD v) SHEBESTA 

3 37 d) AD v) ZENTEC p) REFLEX 

4 11 d) AD v) SHEBESTA 

4 34 ILLO p} HICRODATA REALITY 
4 34 dl AD v) ZENTEC p) REFLEX 
4 34 d) AD v) EASTCOMP II 

1 43 d) AD v) MICRU INTL 
3 33 TEST p) MICRODATA REALITY 

3 44 v) ACCU/SOFT ENTERPRISES 

4 44 v) ACCU/SOFT ENTERPRISES 
3 39 d) AD v) SOFTWARE GROUP 
47 d) AD vJ SOFTWARE GROUP 

2 5 d) AD v) AUROTECH 

3 2 d) AD v) AUROTECH 

4 47 d) AD v) AUROTECH 

2 8 v) DELTA DATA CONSULTANTS 

1 24 d) AD v) SEMAPHORE 

2 46 d> AD v) SEMAPHORE 

3 47 d) AD v) SEMAPHORE 

1 48 d) AD v) DYNATRONICS 

2 41 AD v) INTERACTIVE SYSTEMS 

3 I AD v) INTERACTIVE SYSTEMS 

4 31 AD v) INTERACTIVE SYSTEMS 

1 41 d> AD vJ SEMAPHORE 

2 48 d) AD v) SEMAPHORE 

3 33 d) AD vJ ADDEPT 

3 48 d) AD v) SEMAPHORE 

1 42 VOLUTION COMPUTER SYSTEMS 

3 7 d) AD v) MULTIDATA 

4 33 d) AD v) MULTIDATA 

4 41 DIOGENES COMPUTER SYSTEMS 
143 d) AD v) KDK ENTERPRISES 

2 4 d) AD v) KDK ENTERPRISES 

3 41 d) AD vJ KDK ENTERPRISES 

4 8 d) AD v) KDK ENTERPRISES 

3 47 d) AD v) CHRONON DATA 

4 48 d) AD v) CHRONON DATA 

1 37 vJ COMPUTER DISTRIBUTORS 
4 34 d) AD v) PAULA MANNILLO 

3 33 d) AD v) ALPHATEST 

4 35 d) AD v) PICK SYSTEMS 

1 43 d) AD v) SEMAPHORE 

28 d) AD v) SEMAPHORE 

3 30 d) AD vJ SEMAPHORE 

13 d) AD v) SEMAPHORE 

1 45 d) AD v) SEMAPHORE 

1 46 d) AD v) SEMAPHORE 

2 3 d) AD v) SEMAPHORE 

2 33 d) AD v) SEMAPHORE 

2 43 d) AD v) SEMAPHORE 

3 37 d) AD v) SEMAPHORE 

4 24 d) AD v) SEMAPHORE 

1 46 d) AD v) COSMOS 

3 37 d) AD v) COSMOS 

4 43 d) AD v) COSMOS 

3 5 TION RESEARCH OF NEW YORK 

4 5 TION RESEARCH OF l€W YORK 

1 47 d) AD v) MICRODATA 

3 37 d) AD v) ZENTEC 

4 34 d) AD v) ZENTEC 

42 d) AD v) COSMOS 

3 33 d) AD v) BURNS & ASSOC 

4 41 d) AD v) BURNS fc ASSOC 

4 I AD v) INTERACTIVE SYSTEMS 


c) SPREADSHEET 


1 45 AD v) INTERACTIVE SYSTEMS 

c) SPREADSHEET 


4 41 

dl AD v) ANSDATA ASSOC 

d SUBSCRIPTION 


2 8 

vJ AUTOMATIC PROGRAMMING 

d SUBSCRIPTION 


3 8 

v) AUTOMATIC PROGRAMMING 

d SUBSCRIPTION 


4 41 

v) AUTOMATIC PROGRAMMING 

d SUBSCRIPTION 


3 44 

d) AD 

d SUBSCRIPTION 


4 44 

d) AD 

d SUBSCRIPTION 


3 33 

d) AD 

d SUBSCRIPTION 


3 33 

d) AD 

d SUBSCRIPTION 


4 41 

d} AD 

d USED HARDWARE 


2 5 

d) AD 

d USED HARDWARE 


3 2 

d) AD 

d USED HARDWARE 


4 47 

dl AD 

d USED HARDWARE 


2 8 

dl AD 

d USED HARDWARE 


3 8 

d) AD 

d USED HARDWARE 


4 41 

d) AD 

d USED HARDWARE 


3 33 

d) AD 

d USED HARDWARE 


4 41 

d) AD 

c) USER GROUP 


3 47 

d) AD 

d WANTED TO BUY 


4 48 

d) AD 

p ) ACCU-PLOT II c) GRAPHI 


3 8 

d) AD 

ACCU-PLOT II c) GRAPHI 


1 37 

d) AD 

p ) AIDS d APPLICATIONS G 


1 46 

d) AD 

AIDS d APPLICATIONS G 


3 37 

d) AD 

AUROPLAN c) SPREADSHEE 


4 43 

d) AD 

AUROPLAN d SPREADSHEE 


4 2 

d) AD 

AUROPLAN d SPREADSHEE 


2 8 

dl AD 

AUTOMATIC LINE OPERATO 


4 41 

d) AD 

CARGO c) SPREADSHEET 


1 48 

d) AD 

CARGO d SPREADSHEET 


3 8 

d) AD 

CARGO c) SPREADSHEET 


4 34 

d) AD 

COMMUNICATIONS CONTROL 


1 42 

d) AD 

CQMPU-SHEET d SPREADS 


3 5 

d) AD 

COMPU-SHEET d SPREADS 


4 5 

d) AD 

COMPU-SHEET d SPREADS 

2 41 

d) AD 

CONSULTING SERVICES c) 


3 I 

d) AD 

CONSULTING SERVICES c) 

4 31 

d) AD 

CONSULTING SERVICES d 


4 I 

d) AD 

CONSULTING SERVICES d 

1 45 

d) AD 

EVOLUTION d COMPUTER 


2 3 

d) AO 

FIXED ASSET MANAGEMENT 

3 33 

d) AD 

FIXED ASSET MANAGEMENT 

1 43 

d) AD 

FIXED ASSET MODULE d 


2 4 

d) AD 

GAAP d ACCOUNTING PAC 

3 41 

d) AD 

GAAP c) ACCOUNTING PAC 

i 

1 8 

d) AD 

GAAP c) ACCOUNTING PAC 

1 47 

d) AD 

GAAP c) ACCOUNTING PAC 

1 43 

d) AD 

HAL c) APPLICATIONS GE 


3 7 

d} AD 

HAL d APPLICATIONS GE 

4 33 

d) AD 

IBM SERIES/1 d COMPUT 

4 34 

d) AD 

MICRODATA REALITY c) U 

3 33 

d) AD 

MICRODATA REALITY c) W 

4 35 

d) AD 

PICK POCKET GUIDE d D 

1 24 

d) AD 

PRAGMA d ADVERTISING 

2 46 

d) AD 

PRAGMA c) ADVERTISING 

3 47 

dl AD 

PRAGMA d ADVERTISING 

1 41 

d) AD 

PRAGMA c) SUBSCRIPTION 

2 48 

dl AD 

PRAGMA c) SUBSCRIPTION 

3 48 

d) AD 

PRAGMA d SUBSCRIPTS 

1 43 

d) AD 

PRAGMA c) SUBSCRIPTION 

2 8 

d) AD 

PRAGMA d SUBSCRIPTION 

3 30 

d) AD 

PRAGMA d SUBSCRIPTION 

1 3 

d} AD 

PRAGMA d SUBSCRIPTION 

1 45 

d) AD 

PRAGMA d SUBSCRIPTION 

1 46 

d) AD 

R/NET c) NETWORK SOFTW 

* 

! 3 

d) AD 

R/NET c) NETWORK SOFTW 

2 33 

d) AD 

R/NET d NETWORK SOFTW 

2 43 

d) AD 

REALITY TECHNICAL JOUR 

3 37 

d) AD 

REALITY TECHNICAL JOUR 

4 24 

d) AD 

REALITY d COMPUTER SY 

1 

44 

d) AD 

REFLEX c) USED HARDWAR 

3 11 

d> AD 

REFLEX d USED HARDWAR 

4 11 

d) AD 

REVELATION c) OPERATIN 

3 39 

d) AD 

SAM c) PERFORMANCE MON 

4 

7 

d) AD 

SAM d PERFORMANCE MON 
SCREEN-GEN d SCREEN P 

i 37 

4 34 

d) AD 
d) AD 


p) TCL-AUDITOR, REPORT-GE 
p) THE SIDEKICK c) NETWOR 
p) WIZARD c) PROGRAM GENE 
p) WIZARD d PROGRAM (BE 
p) WIZARD d PROGRAM GENE 
v) ACCU/SOFT ENTERPRISES 
v) ACCU/SOFT ENTERPRISES 
v) ADDEPT p) CONSULTING S 
v) ALPHATEST p) MICRODATA 
v) ANSDATA ASSOC p) THE S 
v) AUROTECH p} AUROPLAN c 
v} AUROTECH p} AUROPLAN c 
v) AUROTECH p} AUROPLAN c 
v) AUTOMATIC PROGRAMMING 
v) AUTOMATIC PROGRAMMING 
v} AUTOMATIC PROGRAMMING 
v) BURNS it ASSOC p) SAM c 
v) HJRNS & ASSOC p} SAM c 
v) CHRONON DATA p) HAL d 
v) CHRONON DATA p) HAL c) 
v) COMPUTER DISTRIBUTORS 
v) COMPUTER DISTRIBUTORS 
v) COSfWS p} R/NET d NET 
v) COSMOS p) R/NET c} NET 
v) COSMOS p) R/fCT c) NET 
v) COSMOS p) REVELATION c 
v) DELTA DATA CONSULTANTS 
v) DIOGENES COMPUTER SYST 

v) DYNATRONICS p) COMMUNI 

v) EASTCOMP II d USED HA 

v) EASTCCW II d USED HA 

v) EVOLUTION COMPUTER SYS 
v) INFORMATION RESEARCH 0 
v) INFORMATION RESEARCH 0 
v) INTERACTIVE SYSTEMS p) 
v) INTERACTIVE SYSTEMS p) 
v) INTERACTIVE SYSTEMS p) 
v) INTERACTIVE SYSTEMS p) 
v) INTERACTIVE SYSTEMS p) 
v) IRVINE COMPUTER d PER 
v) IRVINE COMPUTER d PER 
v) KDK ENTERPRISES p) GAA 
v) KDK ENTERPRISES p) GAA 
v) KDK ENTERPRISES p) GAA 
v) KDK ENTERPRISES p) GAA 
v) MICRODATA p) REALITY c 
v) MICRU INTL d USER GRO 
v) MULTIDATA p) FIXED ASS 
v) MULTIDATA p) FIXED ASS 
v) PAULA MANNILLO p) MICR 
vJ PICK SYSTEMS c) CONTES 
v) PICK SYSTEMS p) PICK P 
v5 SEMAPHORE p) CARGO d 
v) SEMAPHORE p) CARGO d 
v) SEMAPHORE p) CARGO d 
v) SEMAPHORE p) CONSULTIN 
v) SEMAPHORE p) CONSULTIN 
v) SEMAPHORE p) CONSULTIN 
v} SEMAPHORE p) PRAGMA d 
v) SEMAPHORE p) PRAGMA d 
vJ SEMAPHORE p) PRAGMA d 
v) SEMAPHORE p) PRAGMA c) 
v} SEMAPHORE p) PRAGMA d 
v) SEMAPHORE p) PRAGMA d 
v) SEMAPHORE p) PRAGMA d 
v) SEMAPHORE p) PRAGMA d 
v) SEMAPHORE p) PRAGMA d 
v) SEMAPHORE p) PRAGMA d 
v) SEMAPHORE p) PRAGMA d 
v) SHEBASTA ASSOC c) USED 
v) SHEBESTA d USED HARDW 
v) SHEBESTA d USED HARDW 
v) SOFTWARE GROUP p) AIDS 
v} SOFTWARE GROUP p} AIDS 
v) ZENTEC p) REFLEX c) US 
v) ZENTEC p) REFLEX d US 
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gomes 

_ 


For many people, computers ore synonymous with 
gomes, now that the video gome industry has become 
such a giant. Programmers frequently cut their teeth on 
small game programs, since such programs are often 
straight-forward and self-contained without a lot of com¬ 
plicated interfaces to files or other software. And, more 
than anything, games are simply entertaining and fun. 

The Gomes Department will be making periodic ap¬ 
pearances in Pragma. If you have a game program you 
would like to share, send it in for publication. If there's 
anything the Pragma staff has time to do, it's "perform¬ 
ing rigorous software quality assurance" (in other words, 
trying out a new game on the computer). 


Amazing! 

You’ve been wandering through the maze for over 
three hours now, trying to find the exit. Your CRT is 
displaying the view from your current position 
inside the maze: 



You are looking down a corridor that ends up 
turning right, but there is also a passage off to the 
left and an even nearer hall off to the right. Which 
direction should you try? 


AMAZING is a program that displays views like the one on 
the left to try and help you find your way through mazes that 
you or anyone else can design. 

Before you can explore a maze with AMAZING, the walls and 
passages of the maze must be input using the MAKE.MAZE 
program, which is listed on page 53 and followed by a sample 
of an actual maze. The equate on line 2 of MAKE.MAZE 
limits the number of columns and rows in the maze, but you 
may adjust cmax and rmax to any number within the limits of 
the display screen if you want to design larger mazes. 

MAKE.MAZE begins by displaying every possible wall in a 
maze. Use numeric keys to drive the cursor around while using 
the space bar to blank out walls and create passages. A non¬ 
blank key will resurrect a wall. The “F” key will file away the 
maze and the “X” key will exit the program. A file called 
MAZES must exist for saving the maze data. 

Once a maze has been created with MAKE.MAZE, it can be 
explored using AMAZING, which is listed beginning on page 
54. AMAZING starts you off in the northwest corner of the 
maze and shows you the view looking east. You can type “N”, 
“S”, “E” or “W” to see the view in those directions, or you 
can use “M” to move in the direction you're already looking. 
Entering “Q” will let you quit. 

AMAZING works by assuming that there is always at least 
one wall blocking the view within four units of the observer. It 
is up to the maze designer to insure there are no corridors 
longer than four units or huge, cavernous rooms in the maze. 
The EDGES item on page 54, which must be in the dictionary 
of the MAZES file, is a list of the endpoint co-ordinates of the 
82 different possible line segments (wall edges) that may be 
displayed. The OFFSETS item, also for the MAZES dic¬ 
tionary, tells AMAZING all possible wall positions within 
four units when looking north. 

Subroutine 20 at line 65 draws a line on the screen using col¬ 
umn and row positions from EDGES, and is the primary can¬ 
didate for optimization if you want to speed up AMAZING. 
But if the object is to make AMAZING more fun, how about 
changing the programs to allow a pile of gold to be hidden by 
the maze designer so that it can be searched for and displayed 
by the maze explorer? 
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OFFICE MULE 

DATABASE MANAGEMENT LANGUAGE 


Edits Mistakes from File 


Completely Menu Driven 


□ Builds Pick Dictionaries for English 


Fully Integrated to Database Builder 


Flandles Any Size Spreadsheet 


□ Easy Spreadsheet Handling 


OFFICE MULE EXECUTIVE COORDINATOR 


Use as an Address Book 
Files Memos 
Electronic Mail 


Records Phone Messages 
Schedules Appointments and Meetings 
Maintains “Things to Do” List 


SYSTEM DEVELOPMENT 
CONSULTING 
PACKAGES 


LAZAROV SOFTWARE SYSTEMS, INC 

12201 E. ARIZONA DR. 

AURORA, CO 80012 

303-755-1451 

TELEX: 45-885 TAS/DVR 
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EDGES 


OOl 0313733 

042 723937919 

002 723337931 

043 3139331313 

003 0333733 

044 4739147113 

004 71317213 

045 031337313 

005 721317913 

046 7113115313 

006 71317119 

047 15313323313 

007 71311515 

048 23113131113 

008 631517213 

049 31313147313 

009 7213172119 

050 47113355313 

010 0151715 

051 55313363313 

011 71511515 

052 63113172113 

012 151516315 

053 72113379313 

013 631517215 

054 011517114 

014 721517915 

055 7314315313 

015 1515115117 

056 23315131113 

016 151512317 

057 47313355115 

017 551716315 

058 63313172114 

018 6315163117 

059 72314379115 

019 0171717 

060 031537115 

020 71711517 

061 7115315315 

021 151712317 

062 15315123115 

022 231715517 

063 23315155115 

023 551716317 

064 55115163115 

024 631717217 

065 63315372315 

025 721717917 

066 72315179315 

026 0171718 

067 15117123315 

027 71811519 

068 55115163117 

028 2337123115 

069 011717317 

029 233713119 

070 7317315117 

030 473935517 

071 15317363317 

031 5517355315 

072 63117372117 

032 631937238 

073 72117379317 

033 723837917 

074 7119315117 

034 0391719 

075 63117372319 

035 73911539 

076 011917119 

036 151912339 

077 7119372119 

037 231933119 

078 72119179119 

038 311914739 

079 012137119 

039 471935519 

080 72319379121 

040 551936339 

081 1539315313 

041 633937239 

082 6339163113 

EDGES ITEM 

OFFSETS 


001 -43-7 

013 -13-4 

002 -21-7 

014 11-4 

003 03-7 

015 -21-3 

004 21-7 

016 01-3 

005 41-7 

017 23-3 

006 -31-6 

018 -13-2 

007 -11-6 

019 13-2 

008 13-6 

020 -21-1 

009 33-6 

021 03-1 

010 -21-5 

022 21-1 

011 01-5 

023 -110 

012 21-5 

024 130 

OFFSETS ITEM 


AMAZING 

001 DIM W(24) ;* Total possible walls in view 
002 EQU clear TO CHARI12) 

003 OPEN "HAZES" ELSE STOP "No MAZES!" 

004 PRINT clear: 

005 LOOP 

006 PRINT "NAME OF MAZE": ? INPUT NAME 

007 PRINT clear: 

008 MISSING = 0 

009 READ MAZE FROM NAME ELSE MISSING = 1 

010 UHILE MISSING DO 

Oil PRINT NAME:" not found!" 

012 REPEAT 

013 COLS = COUNT(MAZE,CHARI254))+l 

014 ROMS = C0UNT(MAZE<1>,CHAR(253))+1 

015 OPEN "DICT", "MAZES" ELSE STOP "No MAZES!" 

016 READ EDGES FROM "EDGES" ELSE STOP "No EDGES!" 

017 READ OFFSETS FROM "OFFSETS" ELSE STOP "No OFFSETS!" 
018 C = 2 ! R = 2 : LOOKING = "east" 

019 LOOP 

020 G05UB 10 5* Set U(1...24) 

021 GOSIIB 30 ?* Paint screen 

022 PRINT §(0,23):‘Lookins *:LOOKING: 

023 PRINT ". 'M'ove ahead or look ■: 

024 PRINT "'N', "S', 'E'» 'W or 'Q'uit": 

025 INPUT DIR.l: 

026 PRINT clear: 

027 UNTIL DIR = "Q" DO 
028 BEGIN CASE 

CASE DIR = "N" ; LOOKING = "north* 

LOOKING = "south" 

LOOKING = 

LOOKING = 


029 

030 

031 

032 

033 

034 

035 

036 

037 

038 

039 

040 

041 

042 

043 

044 

045 

046 


"east" 

•west" 


CASE DIR = "S" 

CASE DIR = "E" 

CASE DIR = "M" 

CASE DIR = "M" 

IF N0T(H(21)) THEN 
BEGIN CASE 

CASE LOOKING = “north" 

R = R-2 » IF R < 2 THEN R = 2 
CASE LOOKING = "south" 

R = R+2 5 IF R > RONS THEN R = ROHS-1 
CASE LOOKING = "east" _ 

C = C+2 5 IF C >= COLS THEN C = COLS-1 
CASE LOOKING = "west" 

IF C C 2 THEN C = 2 


WY = 0FFSETS<HALL,2> 


C = C-2 
END CASE 
END 
END CASE 
047 REPEAT 
048 STOP 
049 * 

050 10 * Set HI1...24) 

051 FOR HALL = 1 TO 24 
052 MX = OFFSETSGJALL, 1> 5 
053 BEGIN CASE 
054 CASE LOOKING = "north" 

055 CASE LOOKING = "south" 

056 CASE LOOKING = "east" 

057 CASE LOOKING = "west" 

058 END CASE „ _ 

059 IF (1<=LX> {< (LX<=COLS) fe (1<=LY) & (LY<=COLS) THEN 
060 U(UALL) = (MAZE<LX,LY> # 

061 END ELSE W(HALL) = 0 

062 NEXT NALL 
063 RETURN 
064 * 


AMAZING LISTING 


5 LX = C+WX ! 
5 LX = C-NX i 
LX = C-NY ? 
LX = C+HY ! 


") 


LY = R+HY 
LY = R-UY 
LY = R+HX 
LY = R-HX 
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065 20 * Plot line 

066 XFROH = EDGES<L,1> ; YFROH = EDGES<L,2> 
067 XTO = EDGES<L,3> ! YTO = EDGES<L,4> 

068 XDELTA = XTO-XFRQH 

069 IF XDELTA # 0 THEN 

070 YDELTA = (YTO-YFROHl/XDELTA 

071 XDELTA = 1 

072 END ELSE YDELTA = 1 

073 LOOP 

074 YINT = ICONV(YFROH,"MDO“) 

075 PRINT 6(XFROH,YINT):*+■! 

076 UNTIL (XFROH = XTO) It (YINT = YTO) DO 
077 YFROH = YFROH+YDELTA 

078 XFROH = XFROH+XDELTA 

079 REPEAT 
080 RETURN 
081 * 

082 30 * Paint screen 
083 IF 61(23) THEN L = 1 5 60SUB 20 5 

084 IF 64(24) THEN L = 2 5 GOSUB 20 5 

085 IF W(20) It NOT(W(23)) THEN L = 3 

086 IF 64(22) Is NOT(64<24>> THEN L = 5 

THEN L = 4 J GOSUB 20 


AMAZING 

LISTING 

CONTINUED 


087 IF 61(21) 
088 IF U(18) 
089 IF W(19) 
090 IF 64(18) 
091 IF W(19) 
092 IF U(15) 
093 IF W(15) 
094 IF 64(16) 
095 IF 64(17) 
096 IF W(17) 
097 IF 6f( 10) 
098 IF 64(12) 
099 IF (U(15) 
100 IF (61(14) 


64(21) ! 64(23) ! 64(20) 
H(22) ! 61(24) ! 64(21) 
W3T(64(21)) T1CN L = 7 
NOT(64(21)) THEN L = 8 ? 
N0T(M(23) ! 64(20)) THEN 
NOT(64(21) ! 64(18)) THEN 
N0T(H(21)) THEN L = 12 
6 NOT(64(19) ! 64(21)) THEN 
6 NOT(64<24) ! 61(22)) THEN 
6 N0T(H(23) ! H(20) ! 

6 NOT(64(24) ! 64(22) 


L « 79 ? GOSUB 20 
L = 80 5 GOSUB 20 
5 GOSUB 20 5 L = 76 ? 
5 GOSUB 20 ? L = 78 ! 
L = 77 5 GOSUB 20 
THEN L = 6 J GOSUB 20 
THEN L = 9 i GOSUB 20 
? GOSUB 20 ? L = 74 5 
GOSUB 20 ! L = 75 ! 
L = 10 5 GOSUB 20 ? 
L = 11 ! GOSUB 20 ! 
GOSUB 20 5 L = 71 i 
L = 13 ; GOSUB 20 
L = 14 5 GOSUB 20 
64(15)) THEN L = 19 
64(17)) THEN L = 25 


GOSUB 20 
GOSUB 20 


GOSUB 20 
GOSUB 20 

L = 69 5 GOSUB 20 
L = 70 ; GOSUB 20 
GOSUB 20 


101 IF 11(13) 6 NOT(64(21) 

102 IF 64( 14) 6 N0T(W(21) 

103 IF 64( 10) 6 NOT(64(18) 

104 IF 64(10) 6 NOT(64(13) 

105 IF 64(12) 6 NOT(64(14) 

106 IF U( 11) It NOT(64( 16) 

107 IF 64(12) & NOT<64(17) 

108 IF 64(6) It NOT(64(23) ! 64(20) 

109 IF W(9) It N0T(W(24> ! 6J(22) 

110 IF 64(6) It NOT(64(21) ! 64(18) 

111 IF 64(9) It NOTOH21) ! 64(19) 

112 IF (64(7) ! 14(11) ! 64(13) 

113 IF (64(8) ! 14(12) ! 64(14) 


61(13) ! 14(16) ! 61(18)) It N6td4(21))"tHEN 
64(17) ! 14(19) ! 14(16)) It N0T(H(21)) THEN 


L = 72 
! L = 73 
GOSUB 20 i 
GOSUB 20 ! 


W(16» THEN L = 16 
64(16)) THEN L = 17 
14(15)) THEN L = 20 
14(16) ! 14(21)) THEN 
14(16) ! 14(21)) THEN 
14(21)) THEN L = 22 
64( 19)) THEN L = 24 


114 IF 14(7) 

115 IF 14(8) 

116 IF 61(1) 

117 IF 64(5) 

118 IF 64(1) 

119 IF 14(5) 

120 IF 64(2) 

121 IF 14(4) 

122 IF 14(2) 

123 IF 61(4) 

124 IF 14(3) 

125 IF (14(2) 

126 IF (14(3) 

127 IF (64(1) 

128 IF (14(4) 

129 RETURN 

130 * 

131 END 


It NOT(6I( 11) 
It N0T(W(11) 
It N0T(U(6) 

It NOT(64(9) 

It NOT(14(6) 

It NOT(64(9) 

It NOT(IKIO) 
It NOT(6I( 12) 
It NOT(64(7) 

It NOT(64(8) 
N0T(W(11) 


14(3) 

14(4) 

14(2) 

14(5) 


14(16) 
! 14(16) 
14(10) 
64(12) 
14(10) 
14(12) 

! 14(13) 
! 14(14) 
14(11) 
14(11) 
14(16) 


14(15) 

14(17) 

14(15) 

. . 14(17) .. 

14(10)) It NOT(6f(21) 
14(11)) It NOT(64(21) 


L = 15 
L = 18 ? 

GOSUB 20 ; L * 67 
GOSUB 20 5 L = 68 
GOSUB 20 ! L = 61 
L = 21 ; GOSUB 20 ! 

L = 23 ! GOSUB 20 5 
GOSUB 20 5 L = 63 
. GOSUB 20 5 L = 65 
H( 10)) THEN L = 26 ; GOSUB 20 

64(12)) THEN L = 33 5 GOSUB 20 

U(10)) THEN L = 27 i GOSUB 20 

64(12)) THEN L ■ 32 5 GOSUB 20 

! 64( 16)) THEN L » 28 
64( 16)) THEN L = 31 


64(21)) THEN L = 29 
U(21>) THEN L = 30 


if 15) 

64( 17) 
61(15) 
64(17) 

! 64(16) 

! 64(16) 
64( 16) ! 
U(16) ! 

64(21 S) 


GOSUB 20 
GOSUB 20 


. GOSUB 20 
5 GOSUB 20 
L = 60 ; GOSUB 20 
L = 66 5 GOSUB 20 
GOSUB 20 
GOSUB 20 
; GOSUB 20 
; GOSUB 20 
? GOSUB 20 
L = 62 5 GOSUB 20 
L = 64 ! GOSUB 20 
! GOSUB 20 
GOSUB 20 
! L = 54 
5 L = 59 
? L = 55 
5 L = 58 
GOSUB 20 
GOSUB 20 


GOSUB 20 
GOSUB 20 
GOSUB 20 
GOSUB 20 


L = 56 
L « 57 


W(20) ! 64(23)) THEN L = 34 5 G0SUB'20 
64(22) ! 64(24)) THEN L = 42 ! GOSUB 20 


GOSUB 20 
GOSUB 20 


64(18)) THEN L = 35 
64( 19) > THEN L = 41 
! U(2D) THEN L = 36 
! H(21)) THEN L = 40 
W(21)) THEN L = 37 
M(21)) THEN L = 39 


64(7)) It N0T(H(11) 


H(8)) 
64(6)) 
64(9)) 


It N0T(U(11) 
It N0T(H(10) 
It NOT(64( 12) 


THEN L = 38 
64(16) 

64( 16) 
64(21)) 
U(21)) 


GOSUB 20 . 
GOSUB 20 ; 
! GOSUB 20 
! GOSUB 20 
GOSUB 20 
GOSUB 20 


GOSUB 20 ; L = 49 


L = 46 5 
L = 52 ; 
! L = 47 
i L = 51 
L = 48 ; 
L = 50 


_ ... GOSUB 20 

64(21)) THEN L = 43 5 GOSUB 20 
61(21)) THEN L = 44 ? GOSUB 20 
THEN L « 81 5 GOSUB 20 
THEN L = 32 ; GOSUB 20 


L = 45 
L = 53 . 
GOSUB 20 
GOSUB 20 
! GOSUB 20 
) GOSUB 20 
GOSUB 20 
GOSUB 20 


GOSUB 20 
GOSUB 20 
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